AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
AAA AAA 
AAA ABR 
AAA AAA 
AAA ALA 
AAA Bib 
slat AA 
Aba AAA 
AAA AAA 
RRA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAR AAA 
AKA ABA 
ALB AAA 
RAR AAA 
AAA AAA 
bhh ABA 


L 

LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


B 12 


| **FLLE®*1DeeRMSINTER 


care ao 
eoeace om 
ca cc aca 
ca ca cae 
aca eoco 
cao ecacacae 
co ao 
ca cc 
@Qaeancaancaacaacaarcacca 
@waecncaeanaacacacacac 
wow ses 
ww eastas 
uu dus cases 
uous usu eastas 
uw uuu ene 
ww Las at eared 
usu uous raptor 


a ss 
A dd ss a a a 


be bb be bb 
Pe ee 


ae 
toe 
2222222222 2222 
Z22zzzzzz 222222 
22 
22 
zz 
zz 
zz 
22 
2222 2222222222 
22azzzzzzz2zzz222 
i esse itsd 
—o “ee 


a Og ay ag Og ay ag at te ag a ay ay 


oe me 


— —— 
nw NNW 
nw NNN 
nn rn AW” 
Vn AW nn 
nn AWN 2” 
nw Wn ann 
nn nn nn 
nw nw Ww 

NNNMNM nw 

NNMNM nn 
ESTES ETELETEEEE 

SSESSSsSeSesesesesesee 
z= 
zs 
== 
z= 

== 

; 
SESSSESTSETESESE 
(at. Se ee ee ee 

aacacnx oe 

eace cece 
xa aa aa 
aoc ae ca 
ca eaccea 
aca eacac 
aca Co oe 
<a ao 
aeamcaacacacaanrcaooce 
aacacacacacacca 


et ak ne Od Ot Ong Ong Ong Og Og Oe Ong Ot 


LLLLLELLLL 
LLLLLLLLLL 


NOOR WR @OODNA UE WR OOD NOAU EWN OO DNOAU EWN BOO DNAUES WR SOO DNOULWR 


Be Be Be Be Oe Se Se BE Os Se Se Be Fe Se Be Ge Fe Ge Ge Se Ge Ge Ge Se FH Ge FH FH Ge He Ge Se Ge Se Ge Se Se Se Se Se G5 Se Ss Oe Ss Ss Ss Se Ss Se SESH Ss Se Bees 


PUPP BS BB BE EEE BAAN MANNA PNP PNPUNINIDYD 2 2 OO OO ee 


C 12 
RMSINTER = Interactive Analysis Mode dak 4 at 64 90:06:39 AxX-11 Blis 
14-Sep-1984 11:55:01 


s-32 V4.0-74 
ANALYZ.SRCJIRM 


SINTER.B32;1 


Ztitle "RMSINTER = Interactive Analysis Mode’ 
module rmsinter 
ident="V04-000') = begin 


' 
Le RARER RARER ERE REE ERATE ATER ARERR RAAEREEEEEEKKREKEER EE 
' 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

!* ALL RIGHTS RESERVED. 

is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i IN ee khow THE TERMS Ay LICENSE AND WITH THE 

ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHE 


® 
® 
® 
te 
® 
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® 
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' * 
is TRANSFERRED. ‘ 
* 
& 
® 
® 
* 
* 
® 
* 
® 
*® 
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!t THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
rs eORPORAT tke NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELI BILITY OF ITS 
'* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Lee RARER REAR EEE EAE ERAERERAARE RES 
' 


e+ 
Facility: VAX/VMS Analyze Facility, Interactive Analysis Mode 


: Abstract: This module handles the interactive mode of analysis 

requested via the /INTERACTIVE qualifier. This mode 
allows the user to interactively peruse the structure 
of any RMS file. 
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? 
038 ’ 
st Environment: 
bas : Author: Paul C. Anagnostopoulos, Creation Date: 20 May 1981 
004 5 | Modified By: 
0045 1! v03-006 0GB0050 Donald G. Blair 08-May-1984 
0046 : Fix condition handling so ANALYZRMS returns the correct 
0047 : error status at \eege exit. shenge condition handler 
00% from ANLSCONDITION_HANDLER to ANLSUNWIND_HANDLER. 
0050 1! v03-005 PCA1012 Paul C. Anagnostopoulos 6-Apr-1983 
0051 : Remove redundant cases from ANLSINTERACTIVE_DOWN, so that 
8036 ; common ol per chee for moving down from a structure are 
opez not repeated. 
0055 1! v03-004 PCA1011 Paul C, Anagnostopoulos 1-Apr-1983 
8038 : Change the message prefix to ANLRMS$. to ensure that 
005 : message symbols are unique across alT ANALYZEs. This 
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— ss 2 ss _ 9 - 2 


l 
-Sep-1 ANALYZ.S 
is necessitated by the new merged message files. 


v03-003 PCA1007 Paul C. Anagnostopoulos 10 Feb 1983 
Needed to make a small change to the way deleted primary 
data records were detected in prologue 3 files. his 
change was necessitated by recovery unit enhancements. 


v03-002 PCA1001 Paul C. Anagnostopoulos 12-0ct-1982 
age code to support SIDR records for prologue 3 indexed 
iles. 


v03-001 PCA0010 Paul Anagnostopoulos 16-Mar-1982 
Fix the code that goes down into the buckets of a 
relative file. There may not be any. 
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ANALYZ. SRC RAS INTER. 


is) 66 0073 1 Xsbttl ‘Module Declarations’ 

i. 0074 1: | ; 

is One? 1 ! Libraries and Requires: 

it 4) 1% 

is £8 0077 1 

ie Bare 1 Library ‘Lib’; 

i; & 0079 1 Library ‘tpamac'; 

co 0080 1 require ‘rmsreq'; 

i = 0589 1 

ce 3 0590 1! 

; | =84 0591 1 ! Table of Contents: 

3 85 Bee 13 

5 «28 0593 1 : 

or 0594 1 forward routine 

; «88 0595 1 anl$interactive_mode: novalue, 
; ww 0596 1 anl$interactive_driver: novalue, 
; 0597 1 anl$interactive_command: novalue, 
; Wi 0598 1 anl$interactive_display: novalue, 
—) 0599 1 anl$interactive_down, 

oe 2, 0600 1 anl$interactive_dump: novalue, 
; * 0601 1 anl$interactive_ help: novalue; 
;. 602 1 

; | «696 6035 1! 

;. 604 1 ! External References: 

; 605 1! 

; 0606 1 

; 100 0607 1 external routine A 

3 «6101 0608 1 anl$area_descriptor, 

; 102 0609 1 anl$bucket, 

3 OS 0610 1 anl$2bucket_header, 

3: 104 0611 1 anl$3bucket_header, 

3 6109 aet¢ 1 anl$3format_data_bytes, 

3; 106 0613 1 anl$format_Tile_attributes, 

: 107 0614 1 anl$format_file_header, 

; 108 0615 1 anl$format_hex, 

; 109 0616 1 anl$format_line, 

: 110 0617 1 anl$format_skip, 

. 19 0618 1 anl$idx_prolog, 

: 112 0619 1 anl$unwind_handler, 

3 5 0620 1 anl$2index_record, 

3 114 0621 1 anl$Sindex_record, 

; 39 boss 1 anl$internalize_number, 

3 (116 0623 1 anl$key_descriptor 

s WW ey: 1 anlSopen_next_rms tile, 

3 «118 625 1 anl$prepare_réport_file, 

> 119 0626 1 ant$9pr'inary_data,record, 

: 120 0627 1 anl$5primary_data_record, 

s Yan 0628 1 anl$3reclaimed_bucket_header, 
ls $$ +394 1 anl$rel_cell, 
eo Se 06350 1 anl$rel_prolog, 
a 124 0631 1 anl\$seg_data_record, 

: 125 BO 36 1 anl$2sidr_pointer, 

: 126 063 1 anl$5sidr_pointer, 

3: 127 634 1 anl$2sidr_record, 

; 128 0635 1 anl$3sidr_record, : 

3 44 0636 1 cli$get_value: addressing_mode(general) 
a 130 0637 1 lLbr$output_help: address fig_mode (general), 
| 
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3 


Lib$Sestablish: addressing _mode(general), 
Lib$get_input: addressing _mode(general) 
Lib$put_output: eee es wpe. generals, 
Lib$tparse: addressing_mode(general), 
str$upcase: addressing_mode(general); 


Oo 
ao 
TP ar ee 


external literal 
Lib$S_syntaxerr; 


anl$gl_fat: ref block(,bytel, 
anl$gw_prolog: word; 


! 
Macro Definitions: 


1 

1 

1 

1 

1 

1 

1 

1 

1 

i external 
1 

1 

1 

: 

: ! The following macro is simply a shorthand: 
1 


COOOCCCOCOCOOOOOOoCOoOSo 
PAAEAAAAAAAAAAA AO 


DPA ISITE ££ 


AUS AWN OC OONOUE wr 


macro textC] = uplit byte (Xascic %remaining) 1%; 
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1 0657 ' 
¢ Bee Own Variables: 
54 0660 The fol towing two tables control the interactive perusal of a file by 
2? $06) describing the hierarchical structure of the three RMS file types. 
57 066 The first table describes each of the structures in an RMS file. 
58 0664 For our purposes, a structure is basically defined as any context in 
59 0665 which we are able to discretely display an identifiable piece of a file. 
60 0666 Examples are the RMS file attribute area or a indexed file ney descriptor. 
61 0667 ICES OF ENTRIES IN THIS TABLE ARE USED IN THE BSD AS THE 


THE IND 
STRUCTURE TYPE INDICATOR. 


There is a vector of four items for each table entry, as follows: 
0) The number of a routine that can effect the orseh ey 
of this structure (routines reside in ANLSINTERACTIVE_DISPLAY). 
1-3) A List of 0-3 indices into the PATH_TABLE. This List 
defines the ways in which you can go down from this structure. 


eer ee ee Oe ee ee ee 


structure psig |, nj = 
[n*4} 
(matrix+(i#4+j))<0,8,0>; 


own 
structure_table: matrix(35] initial(byte ( 


unused 
File header 
RMS attributes 


Seq rec 
0686 Rel prolog 
0687 Rel bkts 
06 Rel cells 


Idx hey : 
Idx area descriptor 


MWEWN—$O OONOUEWN—OOONOUS 


oon 


primary index rec 
secondary index rec 
primary data rec 
actual data bytes 


x 
x 

x 

x 

x 

x 

x 

x 

x 3108 rec 

x SIDR pointer 
x 

x 

x 

x 

x 

x 

Z 

x 

x 

x 


Mw 


primary index bkt 

secondary index bkt 

ec reery data bkt 
IDR bkt 


on 


primary index rec 
secondary index rec 
primary data rec 
actual data bytes 
SIDR rec 

SIDR pointer 
reclaimed bkt 
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v04-000 Module Declarations 14-Sep-1984 (3) i 
= 208 0714 1 ls 
; 209 0715 1 13 
is 210 pris 1 ! This second table contains an entry for each downward path in the file 1s 
is 11 071 1 ! structure, A downward path is a method for descending from a gives 3 
: 1 0718 1 ! structure in the file down deeper to a new structure in the file. 1 § 
: 17 1884 : } - exemple is the pointer from an index entry to its associated data 3 
: 515 075) yi Uenee ‘t 
; 216 07 ¢ 1 ! Each entry in the table contains four items, as follows: iz 
3 siz 07 1! 0) The symbolic name of the path. . 
3 18 07246 1! 1) A short description of the path. E 
s $38 44 > 3% 2) The number of the routine that can effect the downward | 3 
; 220 726 1! movement (routines are in ANLSINTERACTIVE DOWN). | 3 
; 221 0727 1! 3) The number of the entry in the STRUCTURE_TABLE that | 3 
5 dee 0728 1! describes where you end up when you go down. F 
; $$7 3? , ! : If zero, the value is computed in ANLSINTERACTIVE_DOWN. 3 
> 225 144 1 field path_fields = set : 
> 226 07 ; 1 path_name = (0,0,32,0], 3 
2 ger 0733 1 path text. 5 TOG te : 
; 228 0734 «(1 path_routine = (8,0, Oe 3 
3 $69 pra? . , path_result = (9,0, 8,0 3 
3 es; 3 
“te +) 0737 1 3 
; én 0738 1 own 3 
3; 233 0739 1 path_table: blockvector([25,10, byte] field(path_fields) initial ( 3 
; 234 0740 10, 0, 5 byte(0,0), tunused : 
3 29 0741 1 text('ATTRIBUTES'’), text("RMS file attribute area’) byte(1,2), . 3 F 
3; 2s ores 1 text("BLOCKS'), text("Depends on file organization’), pytete-Q}. > 2 3 
; 237 0743 1 text("BUCKETS'), text('Data buckets’), byte(3,5), 3 3 
; 238 0744 1 text("CELLS'), text('Record cells’), byte(4,6), = 3 
; 239 0745 1 text(*AREAS'), text("Area descriptors’), byte(5,8), a 3 
; 240 0746 1 text('KEYS'), text('Key descriptors’), byte(6,9), . a F 
; 241 0747 1 text("INDEX'S, text('Root index bucket’), byte(7,0). i 7? F 
; 242 0748 1 text("DATA'), text('Data buckets’), byte(8,0), ' § F 
; 243 0749 1 text ("RECORDS'), text('Index records’), byte(9,0) - 3 
> hd 0750 1 text("DEEPER'), text('Index or data buckets’), byte(10,05 i 10 ; 
: 245 0751 1 text ("RECORDS'), text('Primary data records') byte(11.16), ; o 3 
; 246 tar 4 1 text("BYTES'), text('Actual data record bytes’), ASS LG ! \¢ 3 
; 247 0753 1 text("RRV') text('RRV data bucket’), byte(13,12), ‘4 F 
; 248 0754 1 text ("SIDRS iz text('SIDR record’), byte(14,18), ! 14 3 
; 2469 0755 1 text(*POINTER'), text('Record pointer’), byte(15,19), eb 3 
; 230 0756 1 text("RECORDS'), text('Index records’), byte(16,0), ' 16 3 
3 $2 0757 1 text(*DEEPER'), text('Index or data buckets’), byte(17,0) ; We $ 
: 252 0758 1 text(*RECORDS'S, text('Primary data records’), byte(11.26), ' 18 3 
3 gs 0759 1 text ("BYTES"), text("Actual data record bytes’), byte(18,27), ' 19 3 
3; 254 0760 1 text('RRV ), text("RRV data bucket’), byte(19, ge é 39 3 
; oF 0761 1 text('SIDRS'), text('SIDR record’), byte(14,08), | 21 E 
; 256 8768 1 text("POINTER'), text(*Record pointer’), byte(s). 9), : $§ is 
3 $24 3203 : text("RECLAIMED'), text('Reclaimed buckets’), byte(22,50) ! 2 3 
; 259 0765 1 3 
: 260 9766 1! The hierarchical perusal of the file will be controlled by three stacks 3 
: 261 0767 1 ! of BSDs. FIRST_STACK contains BSDs that describe the first structure : 
; $06 0768 1 ! that we encountered on a given level when we went down to it. ; 
5 ? 076? 1 ! CURRENT STACK describes the current structure on a given level. 3 
; 264 0770 1 ! NEXT_STACK describes the next structure that we will encounter on a 3 
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; 265 0771 1: given Level. 

; 266 bite 1 

; 267 0775 1 Literal 

; 268 0774 1 stack _size = 32; 

: 9 0775 1 own 

: 270 0776 1 yond long initial(0), 

$ eri 0777 1 first Stack: blockvector(stack size, bsd$c gi 2907502 field(bsd_fields), 

; 272 0778 #1 current stack: blockvector(stack_size,bsd$c size, ebyte! field(bsd_fields), 

$s 2 0779 1 next stack: blockvector(stack_size,bsd$c_size,byte field(bsd_fields), 

> 274 0780 1 key_Tevel: long; 
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, V04-000 ANLSINTERACTIVE_MODE - Control Interactive Mode 12-88-1382 90:98:35 YANALYZ° SROTRAGINTER 6 31 oa 
| 3 78 or 1 ! Rsbttl "ANLSINTERACTIVE_MODE = Control Interactive Mode Analysis’ 

: 278 ores 1} Functional Description: 

; e279 784 1! his routine is the controlling routine for /INTERACTIVE mode 

; 280 0785 1 } ena 79's. We allow the user to analyze the file specified 

: $8) B78 : on the command Line. 

; 288 bres } Formal Parameters: 

; : non 

: 586 079) 1 i implicit Input 

; ! Implicit Inputs: 

Dae | Bi Reel 

> 289 0794 1 1 Implicit Outputs: 

; soy 1443 : : global data 

5 9 0797 Returned Value: 

: 594 0799 1: Ker 

: $3? pene ' Side Effects: 

: 297 080g | in= 

; 298 0803 1 

; 299 0804 1 

: 309 baoe § global routine anl$interactive_mode: novalue = begin 

: 302 0807 2 local 

: Sez pape ? status; 

; 305 OB10 3 

: 9] Hf 2 ! Begin by opening the file to be analyzed. If the user blew it, just quit. 

; 308 0813 begin 

3; 309 0814 local 

: 319 sth ; local_described_buffer(resultant_file_spec,nam$c_maxrss); 

; $15 s t4 ; if not an Sopen_nont ras. filetresultent. file spec) then 

: 314 0819 a 

: aby st} ! Now we can prepare the report file to receive a transcript of the session. 

3 31 oa5§ 3 anlSprepare_report_tileCanirass_interhdg.resultant tile spec); 

: 318 0824 : 

: 359 +H ! Interactively analyze the file. 

; $56 pase anl$interactive_driver(); 

i 3 i 

: 326 0831 1 end; 
| 
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~Vv04-000 ANLSINTERACTIVE_MODE = Control Interactive Mode 1228081984 1 99:5) PANALYZ SRE SAMS INTER .0395 1 
72 65 74 6€ 69 6F 70 20 64 72 6F 63 65 ; 43 QO20E P.ABR: .ASCII <14>\Record pointer\ 

44 465 4D 49 41 4C 43 45 O21D P.ABS: .ASCII <9>\RECLAIMED\ 

(68 63 75 62 20 64 65 6D 69 61 6C 6 $3 $¢ bd ¢i P.ABT: .ASCII <17>\Reclaimed buckets\ 


-PSECT SOWNS,NOEXE,2 


00 00 03 00 00 02 02 00 00 01 0% 00 00 00 00 00000 STRUCTURE, TABLE: eye hie ‘ 
05 07 00 00 00 06 00 00 04 05 00 00 03 04 00 0000F 0 ance en os. i} 6 
00 00 09 OA 00 08 07 09 00 00 17 08 00 06 O001E ; 5: 6. 0. 8 28, 6, 6, 9, #, 
00 00 OA OF 00 00 OF Od 00 00 O o¢ 0 00 09 9000 S. ©. ©, Via On. Bo. Oc. tee. Ut. 8 
00 OF 12 00 00 11 00 OD OC 10 00 00 OA OF 00038Cc 14, 6, 6, 14, 10,.°0.°0. 15, fo, 
12°16 00 00 10 15 00 00 10 14 00 00 00 13 00 00048 12, 18, 6, 17, 0. 0.0, 18, 15, 
1A 00 00 11 19 00 00 11 18 00 00 15 17 00 00 0005A 0, 0, 6, 20, 16,0, 0 24 16, 0 
00 00 00 1D 00 00 16 1C 00 00 00 18 00 14 13 00069 18, 6, 6, 33. 21. 6, 6, 24, 17, 
00 00 00 1& 00078 17, 0. 0; 26. 19; 26, 6, 27, 0 
22, 0. 0. 29. 0, 0, 6, $0, 6. 6, 
0007¢  BLKB O16 
00000000 00000000 0008C PATH_iABLE: 
LONG 0. 0 
00 00 00094 “BYTE 0. 0 
00000000" 00000000" 00096 “ADDRESS P.AAA, P.AAB 
02 01 0009E “BYTE. 1, 
00000000" 00000000" 000a0 "ADDRESS P.AAC, P.AAD 
00 02 O00A8 “BYTE 2, 
00000000" 00000000" OO0AA “ADDRESS P.AAE, P.AAF 
5 03 000B2 BYTE 3, 
00084 ADDRESS P.AAG, P.AAH 
06 0 p00B¢ BYTE 4, 6 
00000000" 00000000' 000BE ADDRESS P.AAI, P.AAJ 
08 05 000C6 BYTE 5, 8 
00000000" 00000000' 000¢8 ADDRESS P.AAK, P.AAL 
09 06 00000 BYTE 6, 9 
00000000' 00000000' 000D2 ADDRESS P.AAM, P.AAN 
OOODA BYTE 7, 0 
00000000" 00000000' ADDRESS AAO, P.AAP 
00000000' 00000000' ADDRESS P.AAQ, P.AAR 
00 09 “BYTE 9, 
00000000' 00000000' “ADDRESS P.AAS, P.AAT 
0 OA TE 10 


“BYTE > 0 
“ADDRESS PAU, P AAV 
ADDRESS P{AAW, P.AAX 
“ADDRESS P.AAY, P.AAZ 
"BYTE 13, 12 
“ADDRESS PABA. P.ABB 
"BYTE 14, 

"ADDRESS P.ABC, P.ABD 
e YT 1 2 19 

- ADDRESS P-ABE, P.ABF 
“ADDRESS P.ABG, P.ABH 


-BY . 
-ADDRESS P.ABI, P.ABJ 


00000000° Ooyno0re" 
00000000° 00" : 
00000000" 00900000" 
00000000° 00990099" 
00000000" 00080006 
00000000" 00970000" 
00000000" 00000000" 
00000000° 00 00000" 
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éR-B49:1 


P.ABL 

P.ABN 
P.ABP 
» P.ABR 
. P.ABT 


ANLRMS$_OK, ANLRMS$_ALLOC 
ANLRMS$_ANYTHIN 
ANLRMS$_ ay ANLRMS$_BKT 


FREE 
ANLRMS$~BKTKEY, ANLRMS$_BKTLEVEL 
ANLRMS$~BKTNEXT 


HE CKHDG 
ANLRM s$- CONTIG, ANLRMS$_CREATION 
ANLRMS$~CTLSIZE 

ANLRMS$~DATAREC 
ANLRMS$~DATABKTVBN 
ANLRMS$~DUMPHEAD ING 
ANLRMS$_ERRORCOUNT 


EAI rere EXPIRATION 


ScFILEID, ANLRMS$_F ILEORG 
ANL SS 


RMS$~FLAG ANLRMSS._ GLOBALBUF S$ 
ANL RIS SS"HEXDATA 

ANLRMSS$~ HEXH NEADING! 

ANC RSS ~HEXHEADING2 


XTRN ANLRASS-{DAPROAREAS 
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EXTRN ANLRMS$_IDXAREA 

EXTRN ANLRMS$_ IDXAREAALLOC 

EXTRN ANLRMS$_IDXAREABKTSZ 

EXTRN ANLRMS$_IDXAREANEXT 

EXTRN ANLRMS$_IDXAREANOALLOC 

EXTRN ANLRMS$_IDXAREAQTY 

EXTRN ANLRMSS71DXAREARECL 

EXTRN ANLRMS$—IDXAREAUSED 

are ANLRMSS$_IDXKEY, ANLRMS$_IDXKEYAREAS 

XTRN ANLRMS$~IDXKEYBKTS2Z 

EXTRN ANLRMSSIDXKEYBYTES 

EXTRN ANLRMS$_IDXKEYITYPE 

EXTRN ANLRMS$~IDXKEYDATAVEN 

EXTRN ANLRMS$~IDXKEYF ILL 

EXTRN ANLRMS$_IDXKEYFLAGS 

EXTRN ANLRMSS$_ IDXKEYKEYSZ 

EXTRN ANLRMS$_IDXKEYNAME 

EXTRN ANLRMS$_IDXKEYNEXT 

EXTRN ANLRMS$~IDXKEYMINREC 

EXTRN ANLRMS$_IDXKEYNULL 

phe ANLRMS$_I EYPOS 

E 

E 

E 

E 

E 

E 

E 

E 

E 


XTRN ANLRMS$_NOBACKUP 

XTRN ANLRMS$~ “NOE XPIRATION 

XTRN ANLRMSS$_NOSPANF ILLER 
S$"PERFORM 


XTRN ANLRMS$~ =RECHAT, NANLARSS RECLAIMBKT 


PROLOG 
XTRN ANLRMSS$~ REL IAB ANLRMS$_REVISION 


E 

E 

E 

E 

E 

E 

E s ROLOGVER 
EXTRN ANLRMS$_P ANLRMS$_RECATIR 
E 

E 

E 

E 

EXTRN ANLRMS$~STATHDG 
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ANLRMS$_ SUMBARYHDG 
ANLRESS. OWNERUIC 
MS$_JNL, ANLRMS$_AIJNL 
AN NCRM MS$_BIJNL, ANLRMS$_ATJNL 
ANLRMS$— Al TOP ANLRMS$_BADCMD 
ANLRMS$_8 ATH 

ANLRMS$_ “BADVEN ANLRMS$_DOWNHELP 
ANLRMS$ DOWNPATH 

LRMS$_ EMPTY YBKT 

ANL SS NODATA, ANLRMS$_NODOWN 

ANLRMS$_NONEXT, ANLRMS$_NORECLAIMED 
ANLRMS$— =NORECS._ANLRMSS_ NORRV 


ANLRMS$_REST 
ANLRMS$_STACKFUL 
ANLRMS$_UNINI T INDEX 
ANLRMS$_FDLI 


ENAME 

pret $_FDL + ooee ANLRMS$_FDLOWNER 
ANLRMS$_FDLPROTECTION 

ANLRMS$_FDLRECORD 

ANLRMS$_FDLSPAN 

ANLRMS$_ “pote Gh M. secotenn .FDOLVFCSIZE 

ANLRMS$_F DLFORMAT 


ANCRMS$7FDLSIZE 
ANLRMS$_FDLA 
ANLRMSS$— EDLKEY. ANLRMSS_FDL CHANGES 
ANLRMSS$~FDLDAT 
ANLRMS$~FDLDATA AFILL 
ANLRMSS$— F DLDATAKEY COMPB 
ANLRMS$_F DLDATARECCOMPB 
ANLRMS$_FDLDUPS 
ANLRMS$~F DL INDE XAREA 
ANLRMS$—EDL INDE XCOMPB 
ANLRMS$~FDLINDEXF ILL 
ANLRMSS~FDLLINDEXAREA 
ANLRMS$_F DLKE YNAME 
ANLRMS$~FDLNORECS 
ANLRMS$~FDLNULLKEY 
ANLRMS$~F DLNULL VALUE 
ANLRMS$~F DLPROLOG 
ANLRMS$~FDLSEGLENGTH 
ANLRMS$~FDLSEGPOS 
ANLRMS$~FDLSEGTYPE 
NLRMS$~F DLANALAREA 
ANLRMS$~FDLRECL 
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N ANLRMSS$_FDLANALKEY 

N ANLRMS$_FDLDATAKEYCOMP 
N ANLRMS$~ Perpatanteie 
N ANLRMS$_FDLDATARECS 

N ANLRMS$_ F DLDATASPACE 

N ANLRMS$_FDLDEPTH 

N pagent & FDLDUPSPER 
ANLRMS XCOMP 


TRN ANLRMS$-FDLIDXSPACE 

TRN ANLRMSS-FDLIDXLIRECS 

TRN ANLRMSS~FDLDATALENME AN 

TRN  ANLRMSS-FDLIDXLENMEAN 

TRN ANLRMS$~STATAREA 

TRN ANLRMSS~STATRECL 

TRN ANLRMSS~STATKEY 

TRN ANLRMSS$-STATDEPTH 

TRN ANLRMS$~STATIDXLIRECS 

TRN ANLRMS$~STATIDXLENMEAN 
XTRN ANLRMS$_STATIDXSPACE 
XTRN ANLRMS$_STATIDXFILL 
XTRN ANLRMS$_STATIDXCOMP 


ATDATAF ILL 
XTRN ANLRMSS$_STATDATAKEYCOMP 
ANLRMS$_ Sea riinge 

XTRN ANLRMSS_STATEFFICIENC 
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0 

1 

xX 

xX 

x 

Xx 

x 

x KEYREF ID 
bh ANLRMS$_BADKE YROOTLEVEL 
x 

x 

x 

x 

x 

x 

x 
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| 
| NGBKT 
XTRN ANLRMS$_NOTOK, ANLRMS$_SPANERROR 
XTRN ANLRMS$~TOOMANYRECS 
XTRN ANLRMS$_UNWIND, ANLRMS$_VFCTOOSHORT 
| XTRN ANLRMS$~CACHEFULL 
-EXTRN ANLRMS$_ CACHERELFAIL 
-EXTRN ANLRMS$~FACIL i 
-EXTRN ANLSAREA_DESCR 
-EXTRN ANLSBUCKET AN $2BUCKET HEADER 
-EXTRN ANLS$3BUCKE 
~EXTRN ANLS3F FORMAT “pATAT By TES 
~EXTRN ANC SF ORRAT FILE -ATTRIBUTES 
sEXTRN ANLSFORMAT_FILE-H 
~EXTRN AN. ST ORMAT. “HEX. “AML SF ORMAT _LINE 
eEXTRN Ae. SP ORRAT 
} 
| 


-EXTRN ANLS2PRIMARY_ DATA. RECORD 
-EXTRN ANLSSPRIMARY DATA RECO 
-EXTRN ANLSSRECLAIMED BUCKET HEADER 
-EXTRN ANLSREL_CELL, ANLSREL_P G 
-EXTRN ANLSSEQ-DATA_RECORD 

-EXTRN ANL$2SIDR_POINTER 

-EXTRN ANLS3SIDR-POINTER 

~EXTRN ANL $45 1DR_RECORD 

-EXTRN ANLS$3SIDR-RECORD 

-EXTRN CLISGET VALUE, LBRSOUTPUT_HELP 
-EXTRN LIBSESTABLISH, 1BSGET Input 
-EXTRN LIBSPUT OUTPUT, LIBSTPARSE 
“EXTRN STRSUPCASE, LIBS SONTAXERA 
-EXTRN ANLSGL_FAT, ANL$GW_PROLOG 
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Int 6520-1984 90:06:29 AX-11 Bliss-32 V4.0-74 
v04=000 ANLSINTERACTIV 4-Sep 4 11:55:01 ANALYZ.SRCJRMSINTER.B32; 1 


«PSECT S$CODES,NOWRT,2 


0000 00000 ENTRY ANL SINTERACTIVE MODE, Save nothing 
SE FEFC CE 9€ 00002 MOVAB 
7E FF BF 9A 00007 MOVZBL #255, RESULTANT FILE SPEC 
04 AE 08 AE 9E 00008 MOVAB  RESULTANT_FILE_SPEC+8, 
RESULTANT_FILE_SPEC+4 
5E DD 00010 PUSHL SP 
00006 CF 01 FB 00012 CALLS #1, ANLSOPEN_NEXT_RMS_FILE 
12 50 €9 00017 BLBC RO, 1$ 
SE DD Beate PUSHL P 
000000006 8F DD 0001C PUSHL #ANLRMS$_INTERHDG 
0000G CF be FB b00e¢ CALLS #2, ANLSPREPARE_REPORT FILE 
0000v CF 0 Fe Boog: 1. CALLS #0, ANLSINTERACTIVE_DRIVER 


; Routine Size: 45 bytes, Routine Base: $CODE$ + 0000 


tert te 
_v04-00 


LSS sss ene 


DAP PSSST BS ES BS BS BB AAAI NAW 


MO OONAUEWWN OO DNOA UNE WN "ODO ODNOUES WR —OOO 
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cocececececea 2s 
WNW Ns 
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0 @9 CD Cd OD C9 Od Cd OD CO OD OD OD CD CD CD CD OD CD CD CD OU. 
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z=-— 


=m 


FPRIPIPINIAPIHINIPIAIPAINIAINAIAINIAIPIAY a at at st st st kk kk tk tk a 8 


F 13 


- Interactive Analysis Mode 1o=300°138% 90:06:39 ott Bliss-32 viEe O39 
RACTIVE DRIVER = Drive Interactive Anal 14-Sep-1984 11:53:01 ANALYZ.SRCIJRMSINTER.B32;1 
sbttl "ANLSINTERACTIVE_DRIVER = Drive Interactive Analysis of a File’ 
i Functional Description: 
his routine drives the iteractive analysis of a single RMS file. 
It accepts commands from the user and displays file information 
accordingly. 
i Formal Parameters: 


i Implicit Inputs: 
global data 


i Implicit Outputs: 
global data 


8 
' 
' 
' 
' 
' 
' 
' 
none 
' 
' 
! 
' 
' 
' 
; Returned Value: 
' 
' 
' 
' 


' Side Effects: 


global routine anl$interactive_driver: novalue = begin 


local 
status: long, 
command_number: long, 
display: byte; 


Initialization is not very difficult. We have to set up the zeroth 
entry on the stack as if we just went ‘‘down'’ into the file header of 
the file. This means we need a BSD eosee ging the file header, and 
it must be present on the FIRST and CURRENT stacks. 


init _bsd(first_stackC.top,0,0,0,0]); 
first stackl.top,bsd$w_ type : 
init_Bsd(current_stackl.top,0,0,0,0); 
current stackl. top bsdSu_t ype = { 
init_bsd(next_stackL. 0,0,0,0)) 


top. 


an 
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v04-000 ANLSINTERACTIVE_DRIVER - Drive Interactive Anal 19-808 - 1 3b tes Hit LANALYZ SRE RAS INTER 099; 1 . (6) 
; ST 087? : OK, Mow we can actually begin the analysis. The main loop is traversed 
is of 0 6 : once for each user command. We quit when we get an EXIT command or 
i: 3576 087 ' CTRL/Z. 

; sr + 1A 
ls 376 87 display = true; 
is oer 880 loop ( 
(3 378 0881 local . 
is Sry Bass local _described_buffer(command_arguments,80); 

; 7 6 * 088 

; «(381 0884 

3 $66 0885 ! Usually we have to display the current structure. The display 

5 7 0886 : routine will format the contents of the structure, and then 

> 384 0887 ! update the BSD to describe the next structure on the current 

; 385 0888 ' level. This is why we pass it the BSD on the NEXT stack. 

> 386 0889 ! The display routine also needs the BSD for the parent of the 

; ser 0890 ! current structure. 

3 388 0891 : 

; 389 +944 4 if sacaagt = then ( 

; 0 0893 4 anl$format_skip(0); 

B 6 0894 4 copy bucket (current_stack£.top,0,0,0,0],next_stackl.top,0,0,0,0)); 
; 392 0895 4 ant interactive display(next_stackl.top.0,0,0,0J,current_stackL.top-1,0,0,0,0]); 
; ae 0896 4 anl$format_skipt0); 

3 0897 ; delse | 

3; 395 0898 display = true; 

3; 39 0899 3 

3 wer 0900 ; : Now we can actually get a command from the user. The command 

; 398 0901 ! routine returns the command number and a descriptor of any 

; in bong ; ! command arguments. 

3 ret +44 ; anl$interactive_command(command number ,command_arguments) ; 

; 40 0906 3 ! Now we can case on the command. 

: 404 0907 3 

; 405 0908 3 case .command_number from 1 to 11 of set 

; 406 0909 3 } oy? 

; 407 0910 3 C1): : The AGAIN command is trivial. In fact, we don't have to 
; 408 0911 3 ! do a thing. 

3; 409 b3ig 3 

; 410 0913 3 H 

3 6411 0914 

3 216 0915 ; 

3 ati Bote (2): ! This command number is reserved for the BUCKET command. 
3 415 8318 $ 

3; 416 091 

; 417 0920 : y 

5 28 344 (3): ! The DOWN command is very complicated. 

; <3 0398 : (if .top eqlu stack_size then ( 

; 422 0925 5 ! No more room on the stack. Sorry user. 

: 423 0926 5 : 

i; 424 0927 5§ signal (antrms$_stack full); 

3 425 0928 5 display = false; 

: 426 9594 5 ) else ( 

3: 427 0930 5 : : : : 

3; 428 0931 § ! The following routine will build a new BSD on the 


-—--——_ 


| 
} 
; 
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(6): 


(7): 


(8): 
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! FIRST stack describing the lower structure. 


32 V4.0-74 P 
. ag N 63351 ick 


a 
Dd SINTER. 


Status = anlSinteractive_down(command_ arguments, 
current_Stackl.top,0,0,0,0J, first_stackl.top+1,0,0,0,0),.top+1); 
if .status then ( 


! We could go down. Initialize the CURRENT 
' and NEXT stacks, and set the CURRENT stack 
! to the first structure on the new level. 


increment (top); 
init_bsd(current_stack(,top,0,0,0,0]); 

copy_bucket (first _stack{.top,0.0 6,0].current_stackl.top,0,0,0,0)); 
init _bsd(next_stackl.top,0, 70,04); 


) else 
! Something prevented us from going down. 


ye) display = false; 


! The DUMP command is easy here, because we just call 
!' a routine to do it, passing the user's argument. 


(anl$interactive dump (command_arguments) ; 
display = false;J; 


! The EXIT command is real easy. Just return. 


return; 


' The FIRST command is easy. Just copy the FIRST stack 
! into the CURRENT stack. 


copy_bucket(first_stacklC.top,0,0,0,0),current_stackl.top,0,0,0,0]); 


! The HELP command is easy here, because we just cail a 
! routine to do it, passing the user's arguments. 


(anl$interactive_help(command_arguments) ; 
display = false;); 


! The NEXT command is easy. If there is nc next structure, 
! tell the user. If there is, simply copy the NEXT stack 
! into the CURRENT stack. 


if .next_stack{.top,bsd$l_vbn] eglu .current_stackl.top,bsd$l_vbn] and 
next stack Sop beget _0° feet eqlu .current_stack(.top,bsd$l_offset] then ( 
signal (anlrms$_nonext); 
7 display = false; 
else 
copy_bucket(next_stack(.top,0,0,0,0),current_stack(.top.0,0,0,0)); 


—_—— 
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 V04=000 ANLSINTERACTI at ve Interactive Anal 14-Sep- ANALYZ.SRCIRMSINTER.B32;1 (6) 
': 6486 0989 
E 487 0990 
488 0991 (9): ! The REST command is a Little harder. We sit in a Loop, 
489 099 i displaying structures and moving on to the next one, 
rs 1 ¢ ! until there is no next one. 
49 0995 (until .next “Steck -top,bsd$l_vbn] eglu .current_stackC.top,bsd$l_vbn] a 
49 0996 moe “stackL.top,bsd$l offset satu current_stackl.top,bsd$L attest] do ( 
494 0997 copy, bucket (next ppteck .top,0,.0,0,0)J,current_stackL.top,0,0,0,0J); 
495 0998 Format_skip(0 
$38 344 antSinteractive udisplay (next. stack(.top,0,0,0,0).current_stackl.top-1,0,0,0,0)); 
498 1001 signal (anirms$_restdone); 
499 100 display = false;); 
500 00 


(10): ! The TOP command requires a loop to pop each stack entry 
i down to the original one. 


while .top ure 0 do ( 
anl$bucket(first_stackl.top,0 8-0-8) 
anl$bucket (current_stackL. top,0,0 163,10: 
anl$bucket (next_stackC.top,0 0,6,6,63.-1 
decrement (top); 


); 


(11): ' The UP command is easy. Just pop the stacks, unless we 
i already are at the top. 


if .top eglu 0 then ( 
signal (anlrms$_attop); 
display = false; 

) else ( 
anl$bucket(first_stackC.top,0,0 9.0.03 
anl$bucket (current _stackL.top,0 0 $7632 i): 
anl$bucket(next_stack(.top,0 0,6,6,63.-1); 
decrement (top); 
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); 
tes; 
); 
return; 
end; 
OFFC 00000 .ENTRY ANLSINTERACTIVE_DRIVER, Save R2.R3,R4,R5.- ; 0856 
R6,R7,R8,RO,RIO-RI1 : 

58 0000G CF 9E 9000 MOVAB ANLSBUCKET, R11 : 

SA 0000' CF 9€ 0000 MOVAB TOP, R F 

SE AG AE YE 0000C MOVAB =92(SP), SP ; 
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_RMSINTER RMSINTER = Interactive Analysis Mode 16-Sep-1984 00:06:39 AX=-11 Bliss-32 V4.0-74 Pa 1 
Riventts ANLSINTERACTIVE_DRIVER = Brive interective Anel 12-08-1382 00:08:35 LANALYZ SRCIRMGINTER BS 31 ™ (Bs 
56 6A 18 ¢5 00010 MULL #24, TOP, R ; 0870 
| 1B 00 6E - ard C 30015 movcS #0, (SP); 58, #24, FIRST_STACKCR6] : 
| 04 AAG6 OF 000IC PUSHAB FIRST _STACK[R6] + 0871 
9E o1 B0 000 MOVW #1, atSP)+ : 
| 18 00 6E eee alt 2¢ 00 MOVCS #0, (SP), #0, #24, CURRENT_STACKCR6] + 0872 
0304 CA46 9F 0002C PUSHAB CURRENT_STACKCR6] + 0873 
9E 07 BO 00031 MOVW 1, a(SP)+ : 
18 00 6E 00 2c 909 4 MOVCS #0, (SP), #0, #24, NEXT_STACKCR6] : 0874 
0604 CA46 0039 3 
58 gi 90 9003p MOVB #1, DISPLAY + 0879 
| 04 AE 50 8F 9A 00040 1S: MOVZBL #80, COMMAND _ARGUMENTS + 0882 
08 AE 0c AE 43 00045 MOVAB COMMAND_ARGUMENTS+8, COMMAND_ARGUMENTS+4 
48 58 £9 0004A BLBC DISPLAY? 2$ : 0892 
7E D4 00040 CLRL = = (SP) + 0893 
00006 CF 01 FB O004F CALLS #1, ANLSFORMAT_SKIP ; 
50 A 18 ¢5 00054 MULL3 #24, TOP, R + 0894 
51 0304 CA4O SE 00058 MOVAB CURRENT STACKCROJ, R1 : 
50 0604 Ad 9E 0005E MOVAB NEXT_STACKCROJ, RO ; 
60 61 7D 00064 MOva (R1)> (RO) : 
08 Ad 08 Al 00 00067 MOVL  &(R1), 8(RO) : 
14 AO 14 Al 00 0006C MOVL  20(R15, 20(RO) : 
7E D4 00071 cLRL =(SP) : 
50 DD 00073 PUSHL RO ; 
68 02 FB 00075 CALLS #2, ANLSBUCKET : 
50 6A 18 ¢5 00078 MULL3 #24, 6 + 0895 
O2EC CASO 9F 0007C PUSHAB CURRENT STACK=24(RO] ; 
50 6A 18 C5 00081 MULL3 #24, TOP, : 
0604 casO 9F 00085 PUSHAB NEXT_STACK[RO] ; 
0000v CF 02 FB 0008A CALLS #2, ANLSINTERACTIVE_DISPLAY ; 
7E D4 OO08F CLRL. 0s = (§P > 0896 
00006 CF o1 FB 00091 CALLS #1, ANLSFORMAT_SKIP : 
3 11 00096 BRB 3$ + 0892 
58 01 90 00098 28 MOVB #1, DISPLAY : 0898 
04 AE 9F 0009B 3$ PUSHAB COMMAND_ARGUMENTS > 0904 
04 AE 9F 0009E PUSHAB COMMAND NUMBER ; 
0000vV CF 02 FB OGOAI CALLS #2, ANLSINTERACTIVE_COMMAND 5 
OA 01 6E CF 000A6 CASEL COMMAND_NUMBER, #1,~#10 : 0908 
0088 0018 FF96 FF96 OOOAA 4$: <WORD 1$-4$,- : 
OOAE 00A3 0092 011 00082 1$-4$.- ; 
019A 0166 OOF C OO00BA 5$-4$.- : 
8$-4$ @ . 
g38748. - : 
$-4$,- : 
10$-4$,- F 
12$-4$,- e 
| 16$-4$.- : 
19$-4$,- e 
208-48 : 
6€ 11 000C0 BRB £ : 
52 $A DO 900¢¢ 5$: MOVL TOP, R + 0923 
| 20 < p1 O0¢3 CMPL Re. #3 ; 
000000006 BF Bo OOCA #ANLRMS$_STACKFULL : 0927 
017¢ «(31 9009 BRW es ; 
01 A2 9F 000D3 68: PUSHAB 1(R2) > 0935 
| 
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50 01 a2 9E 00006 MOVAB 1(R2), RO : 
| 50 1 ¢ OODA MULL2 #24, RO : 
04 AAGO 9F 000DD PUSHAB FIRST STACKCROJ : 
| 50 52 18 C5 000E1 MULL3 #24 ‘ : 
| 0304 CASO 9F OO0ES PUSHAB CURRENT. STACKCRO] : 
| 10 AE 9F OOOEA PUSHAB CJMMAND-ARGUMENTS : 09 
0000v CF 4 FB GOED CALLS #4, ANLSINTERACTIVE_DOWN ; 0935 
| §9 8 D0 900r2 MOVE” RO. STATUS : 
| 5D 59 €9 000F BLBC STATUS, 11$ + 0936 
6A 06 00088 INCL. 19 + 094 
56 6A 18 C5 OOOFA MULL3 #26, TOP, R6 7 094 
57 0304 CA46 SE OOOFE MOVAB CURRENT STACKLR6], R7 : 
18 00 6E 09 2c 0108 MOVCS #0, (SPY, #0, #24. (R7) : 
| 50 04 AAG6 YE 0010A MOVAB FIRST_STACKCR6], RO + 0944 
67 60 7D 0010F MOva (RO), ~(R7) : 
| 08 A7 08 AO D0 00112 MOVL  8(RO), 8(R7) : 
14 A? 14 AO DO 00117 MOVL  20(ROS, 20(R7) : 
7E 04 0011C CLRL =(SP) : 
57 DD OOr1E PUSHL R7 : 
6B 02 FB 00120 CALLS #2, ANLSBUCKET : 
50 6A 18 C5 00123 MULL3 #24, TOP, + 0945 
18 00 6E 00 2C 00127 MOVCS #0, (SP), #0, #24, NEXT_STACKCROJ : 
0604 CA40 001 ¢¢ : 
71 11 00130 7$: BRB 15$ + 0936 
04 AE OF 00152 8$: PUSHAB COMMAND_ARGUMENTS + 0957 
0000v CF 01 FB 0013 CALLS #1, ANLSINTERACTIVE_DUMP : 
19 11 0013A BRB 11$ : 0958 
50 18 C5 0013C 9$ MULL3 #24, TOP, RO : 0969 
51 4 AAGO GE 00140 MOVAB FIRST _STACKC[RO], R1 3 
0304 CASO 9E 00145 MOVAB CURRERT_STACKLROJ, RO ; 
42 11 00148 BRB 14$ : 
04 AE 9F 0014D 108: PUSHAB COMMAND_ARGUMENTS + 0975 
0000v CF 01 FB 00150 CALLS #1, ANLSINTERACTIVE_HELP 3 
OOFE 3100155 11$: BRW § : 0976 
52 6A 18 C5 00158 12$:  MULL3 #24, TOP, R2 : 0983 
0308 cA42 9F 0015¢ PUSHAB CURRENT STACK+4(R2] : 
0608 CA42 SF 00161 PUSHAB NEXT STACK+4CR2 : 
9E 9E D1 00166 CMPL a(SPy+, a(SP)+ 3 
18 12 00169 BNEQ 138 ; 
030C CA42 9F 00168 PUSHAB CURRENT STACK+8{R2] > 0984 
060C CA42 9F 00170 PUSHAB NEXT STACK+8(R2] ; 
9€ 9E 01 00175 CMPL a(SPT+, a(SP)+ ; 
09 12 90178 BNEQ = 1 ; 
000000006 __8F bb O17A PUSHL #ANLRMS$_NONEXT : 0985 
Oocc 31 00180 BRW 21$ : 
51 0604 CA42 9E 00183 13$:  MOVAB NEXT STACKCR2], R1 : 0988 
500304 CAL? 9 00189 MOVAB CURRENT STACKCR2], RO 
60 61 7D OO18F 14% MOVa (R1), (ROD : 
| 08 Ad 08 AT DO 00192 MOVL grt 8(RO) 
14 AO 14 Al DO 0019 MOVL O(R15, 20(RO) ; 
7E 04 0019C CLRL = = (SP) ; 
50 DD 0196 PUSHL R0 ; 
68 02 FB OA CALLS #2, ANLSBUCKET ; 
FE9A 31 001A3 15$: BRW 1 + 0983 
50 6A 18 C5 001A6 16$:  MULL3 #24, TOP, RO : 0995 
0308 CASO SF OO1AA PUSHAB CURRENT_STACK*4(ROJ ; 
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0608 CASO 9F OO1AF PUSHAB NEXT_STACK+4(RO] : 
9E 9E 01 00184 CMPL a(SPT+, a(SP)+ : 
OF 12 00187 BNEQ 178 : 
030C CA4O 9F 00189 PUSHAB CURRENT STACK+8(ROJ : 0996 
060C CASO 9F 018g PUSHAB NEXT STACK+8CRO : 
9E 4 D1 O01C CMPL a(SPY+, a(SP)+ : 
40 13 001C6 BEQL 18$ : 
51 0604 CA4O 9E 001C8B 178: MOVAB NEXT STACKEROJ R1 : 0997 
0 0304 CA4O GE OOICE MOVAB CURRENT STACKLROJ, RO : 
60 61 7D 00104 MOV (R1), (RO) : 
08 a0 08 Al D0 00107 MOVL  &(R15, 8(RO) : 
| 14 AO 14 Al 00 9010¢ MOVL  20(R15, 20(RO) : 
| 7E 04 O01E1 CLRL = = (SP) : 
50 DD 001E3 PUSHL RO ; 
63 02 FB OO1E5S CALLS #2, ANLSBUCKET : 
7E D4 001E8 CLRL. = = (SP) : 0998 
00006 CF 01 FS OO1EA CALLS #1, ANLSFORMAT_SKIP : 
5 18 C5 OO1EF MULL3 4, TOP, R + 0999 
O2EC CAO SF 001F3 PUSHAB CURRENT STACK=24(RO] : 
50 6A 18 CS 001F8 MULL3 #24, TOP, RO : 
0604 CA4D SF OO1FC PUSHAB NEXT_STACKCLROJ 3 
0000v CF 02 FB 00201 CALLS #2, ANLSINTERACTIVE_DISPLAY ; 
9E 11 00206 BRB 16$ + 0995 
00000000G 1 8F DD 00208 18$: PUSHL #ANLRMS$_RESTDONE + 1001 
3F 11 0020€ BRB 21$ : 
50 6A DO 00210 198: MOVL TOP, RO + 1008 
BE 13 00213 BEQL 1 : 
7E 01 CE 00215 MNEGL #1, (SP) + 1009 
50 18 C4 00218 MULL2 #24, RO ; 
04 AAGO 9F 00218 PUSHAB FIRST STACKCROJ : 
68 02 FB 0021F CALLS #2, ANLSBUCKET 3 
7E 01 CE 00222 MNEGL #1, =(SP) + 1010 
50 6A 18 ¢€5 00225 MULL3) #24, TOP, RO F 
0304 CA4O 9F 00229 PUSHAB CURRENT STACKCRO] : 
6B 02 FB BSE CALLS #2, ANLSBUCKET 3 
7E 01 CE 00231 MNEGL #1, = > 1011 
50 6A 18 C5 00234 MULLS #24, TOP, RO F 
0604 CA4O 9F 00238 PUSHAB NEXT_STACKCRO] : 
6 02 FB 00230 CALLS #2, ANLSBUCKET 3 
6A D7 00240 DECL TOP + 1012 
CC 11 00242 BRB 19$ + 1008 
52 6A 00 O0g44 208: MOVL TOP, R2 + 1019 
11 12 00247 BNEQ 23% : 
000000006 8F oD 00349 PUSHL #ANLRMS$_ATTOP : 1020 
000000006 00 01 FB OO24F 21$: CALLS #1, LIBSSIGNAL ; 
58 94 00256 228:  CLRB DISPLAY : 1021 
A: 11 00258 BRB 24$ : 1019 
7E 1 cE 0025A 238: MNEGL #1, =(SP) + 1023 
50 52 18 ¢5 00250 MULLS #24, R2, RO : 
40 9F 00261 PUSHAB FIRST STACKCROJ : 
68 02 FB 00265 CALLS #2, ARLSBUCKET F 
7E 01 cE 00268 MNEGL #1, = + 1024 
50 6A 18 ‘ 00 68 MULL3 #24, TOP, RO ; 
0304 CA40 9F 00 oF PUSHAB CURRENT §TACKCRO] ; 
B O¢ FB Be 4 CALLS #2, ANLSBUCKET r 
t cE 0277 MNEG -(SP) ; 1025 
50 6A 18 €5 0027A MULLS #24, TOP, RO ; 
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PUSHAB NEXT _STACKCRO] 
CALLS ; , ANLSBUCKET 
DECL 
BRW 
RET 
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Rsbttl "ANLSINTERACTIVE_ COMMAND = Get a Command From the User’ 
i Functional Description: 


: This routine is responsible for obtaining a command from the user, 
parsing it, checking it, and returning information about it. 


Ow 
uw 
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sw 
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Formal Parameters: 
number Address of a longword in which to return the command 
identification number. ‘ . 
arguments Address of a descriptor of a buffer in which to 
return any command arguments. 


Implicit Inputs: 
global data 


! Implicit Outputs: 
global data 


Returned Value: 
none 


Side Effects: 


global routine anl$interactive_command(number,arguments): novalue = begin 


bind 
arguments_dsc = .arguments: descriptor; 
own 
tparse_block: bleckLtpath. LengthO.by ted initial ¢ 
tpa$k_count0, 
tpa$m_blanks + tpa$m_abbrev), 
command_number: long; 
local 
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status: long; 
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1075 ! The following data structure is the parsing table used to analyze a 
1328 : command from the user. The command numbers cannot be changed. 
1978 ; Sinit_state(command_state,command_key); 

1080 $state (, 

1081 2 (tpa$_blank) 

1358 r4 (tpa$~ lambda) 

108 § ); 

1084 

1085 2 $state (, 

1086 § (tpa$_eos, noargs,, 8,command_number), 
1087 ("AGAIN', noargs. 1,command_number), 
1088 2 ! Command number 2 is reserved for BUCKET. 

1089 § ("DOWN', args,, 3,command_number), 
1090 ("DUMP’, args,, 4,command_number), 
1091 2 ("EXIT". noargs., 5,command_number), 
1092 2 (‘FIRST’, noargs,, 6,command_number), 
1093 2 ("HELP', args,, 7,command_number), 
1094 2 (*NEXT', noargs,, 8,command_number), 
1095 2 ("REST', noargs,, 9,command_number), 
1096 2 ("TOP', noargs,, 10,command_number), 
1097 2 ("UP', noargs,, 11,command_number ) 
1098 2 3 

1099 2 

1100 2 $state (noargs, 

1101 2 (tpa$_blank), 

1102 2 (tpa$_ lambda) 

1103 2 : 

1104 2 $state (, ; 

1105 2 (tpa$_eos,tpa$_exit) 

1106 2 : 

1107 2 

1108 2 $state (args, ; 

1109 2 (tpa$_blank,tpa$_exit), 

1110 ¢ (tpa$_ lambda, tpa$_exit) 
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! Get the command string. 
command_bufferClen] = 80 


' comman 
-Number = 
return; 


F 
check (.status, .status); 


tparse_block(tpa$l_stringcnt] 
tparse_block(tpa$l ptr iopetc? 
str$upcase(tparse Blockl 
command_number = 0; 


! Otherwise try again. 


exitif (.status eqlu ss$_normal); 
signal (anlirms$_Badcmd); 


end; 


' OK, return the command number. 
! the caller's buffer. 


number = .command_number; 


return; 
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end; 


if .status eqlu ae then ( 


! Set up for parsing the command. 
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! Sit in a loop until we get a valid command. 
begin 
local 
local _described_buf fer (command_buf fer ,80); 
Loop ( 


status = Lib$get_input (command_buf fer,describe( 'ANALYZE> *),command_buf fer); 
! If we i an end-of-file, then just tell the caller we got an EXIT 


Don't forget to uppercase it. 


poeree gi be bb en 
-command_buffer(ptrJ; 


paSl_stringcent]stparse.blockCtpa$l_stringcnt)); 
status = Lib$tparse(tparse_block,command_state,command_key); 
! If we didn't get a syntax error, then we're all set. 


: We have a command, so let's echo it into the transcript file, if present. 
! The -1 widow control prevents the Line from appearing on screen. 


anl$format_line(-1,0,anlrms$_intercommand,command_buf fer); 


Also place any command arguments into 


ergunents dscClen) = ,tparse_block(tpa$l_stringcnt); : 
ch$move(.tparse_block(tpa$l_Stringcnt),.fparse_block(tpa$l_stringptrJ, .arguments_dsc(ptr]); 
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00000 TRASKEYSTO 
00000 ; TPASKEYST 


U.11: ASCII 
90005 .BY 
00006 ; TPASKEYSTO 


00006 


QO00A 
00008 


00008 


QO00F 
00010 ;T 


90010 


00014 
00015 ;T 


00015 


QOO1A 
00018 


00018 


0001F 
00020 


00020 


00024 
00025 ;T 
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00029 
0002A 
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00020 
QO02E ;T 
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-BLKB 0 
01F2 00000 ; TPASTYPE 
U.2: ~ WORD 498 
O5F6 00002 ; TPASTYPE 
U.3: WORD 1526 
71F7 00004 ; TPASTYPE 


WORD 29175 


00000000* 00006 ; TPASADDR 
U. «LONG <<COMMAND_NUMBER=-U.5>=-4> 
00000008 O000A ;T ASMASK 
Us LONG 8 
0000* QOO0E ;T ASTARGET 
U. eWORD  <<U.7=U.8>=2> 
7100 00010 ;T Y 


«WORD 28928 

«LONG <<COMMAND_NUMBER=U.13>-4> 
-LONG 1 

«WORD <<U.7*U.15>=2> 

E ORD 28929 

«LONG <<COMMAND_NUMBER-U.20>-4> 
TLONG 3 

eWORD <<U.22-U.235>-2> 

-WORD 28930 

«LONG <<COMMAND_NUMBER=-U.28>-4> 
“LONG 4 

eWORD <<U.22-U.30>-2> 

E ORD 28931 

.LONG <<COMMAND_NUMBER-U. 35>-4> 
«LONG 5 

WORD  <<U.7*U.37>-2> 

WORD 28932 

«LONG <<COMMAND_NUMBER-U.42>-4> 
-LONG 6 

WORD = <KU.7"U.44>-2> 

WORD 28933 

.LONG <<COMMAND_NUMBER-U.49>=4> 


00000000* 00012 
00000001 00016 
0000* O001A 
7101 + 0001C 
00000000* O001E 
00000003 00022 
0000* 00026 
7102 00028 
00000000* 0002A 
00000004 0002E 
0000* 00032 
7103 00034 
00000000* 00036 
00000005 0003A 
0000* 0003E 
7104 00040 
00000000* 00042 ; 
00000006 00046 
0000* 0004A 
7105 0004C 
00000000* 0004E 
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00000007 00052 ; TPASMASK 
U.50: LONG 5 
0000* 00056 siBABTARGET o eet. Sisal 
e . . << © -U. >-2> ; 
7106 00058 hs otha 28936 
Aisa hala MV meet COMMAND _NUMBER=U.56>-4 
. he << NUMBER=U.56>=4> : 
00000008 O005E ; TPASMASK = 
U.57:  _.LONG 8 3 
0000* 00062 ; TPASTARGET 
U.58: WORD <<U.7-U.58>=-2> : 
7107 00064 + roles ORD 28935 
00000000* 00066 WA eee , ni went shook r 
. : 7 << OMMA NU -U. >=-4> P+ 
00000009 O006A ; TPASMASK = 
U.64: LONG 9 : 
0000* 0006E U TPASTARGET 
U.65: .WO <<U.7°U.65>-2> 3 
7108 00070 ; TPASTYPE 
U.69: oW 28936 3 
00000000* 00072 ; TPASADDR 
U.70: .LONG <<COMMAND NUMBER-U. 70>-4> : 
OO00000A 00076 ; TPASMASK 
U.71: «LONG 10 3 
0000* O007A ; TPASTARGET 
U.72: eWORD <<U.7*U.72>-2> 3 
7509 OO07C ; TPASTYPE 
U.76: -WORD 29961 : 
00000000* OO07E ; TPASADDR 
U.77: «LONG <<COMMAND_NUMBER-U.77>-4> : 
0000000B 00082 ; TPASMASK 
U.78: «LONG 11 : 
0000* 00086 ; TPASTARGET 
U.79: eWORD <<U.7-U.79>-2> 3 
00088 ;NOARGS 
U.?7: -BLKB 0 
01F2 00088 ; TPASTYPE 
U.81: WORD 498 s 
O5F6 OO0OBA ; TPASTYPE 
U.82: WO 1526 : 
15F7 OOO8C ; TPASTYPE 
U.83: .WO 5623 : 
FFFF OOO8E ; TPASTARGET 
U.84: .WO -1 : 
00090 _Aggs 
U.2 -—BLKB C 
11F2 00090 ; TPASTYPE 
U. 85: WORD 4594 3 
FFFF 00092 ; TPASTARGET 
U.86: .WORD -1 ; 
15F6 00094 ; TPASTYPE 
U.87: «WORD 5622 3 
FFFF 00096 ; TPASTARGET 
U.88: -WORD = -1 ; 
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-PSECT _LIBSKEYOS,NOWRT, SHR, PIC,1 
00000 COMMAND_KEY:: 
00000 ; TPASKEYO 
U.1: -BLKB 0 
0000* 00000 Y 
10 «WORD <U.9-U.1> é 
0000* 00002 ; TPASKEY 
17 «WORD <U.16-U.1> : 
0000* 00004 ;TPA 
62 «WORD <U.24-U.1> : 
0000* 00006 ;TPA 
.32 «WORD <U.31-U.1> : 
0000* 00008 ;TPA 
39 » WORD <U.38-U.1> : 
0006* OO000A Wyte 
PA 
53 
PA 
60 
PA 
67 
PA 
74 


nte 
IVE 


: WORD = <U.45-U.1> 3 
0000* 0000C ;T 
«WORD = <U.52-U.1> 3 
0000* O000E 


«WORD <U.59-U.1> : 
0000* 00010 


«WORD <U.66=-U.1> 3 
0000* 00012 


0 .WORD <U.73-U.1> P 
-PSECT $PLITS,NOWRT,NOEXE,2 
20 3& 45 SA 59 4C 41 GE 41 00239 P.ABV: ASCII \ANALYZE> \ : 
00242 BLKB 2 
00000009 00244 P.ABU: <LONG 9 : 
00000000' 00248 “ADDRESS P.ABV : 


-PSECT SOWNS,NOEXE,2 
00000003 00000008 900A90 teat t 


00A98 “BLKB 28 
0OAB4 COMMAND_NUMBER: 
.BLKB 4 


3 3 


-PSECT SCODES,NOWRT,2 


OOFC 00000 ~ ENTRY alana, COMMAND, Save R2,R3.R4,.R5.- ; 1062 
57 000000006 00 9€ 00002 MOVAB LIBSS1GN : 
56 0000" CF 9E 90009 MOVAB TPA Loa tKee, R6 : 
5€ AC AE 9E 0005 MOVAB : 
52 08 AC 00 0001 OVL § ARGUMENTS, R2 + 1065 
7E 50 8F 9A 00016 MOVZBL #80, COMMAND BUFFE : 1116 
04 «AE 08 AE 9E QOOTA MOVAB COMMAND BUFFER+8 COMMAND _BUFFER+4 3 
6E 50 af 98 OOO1F 1%: MOVZ7BW #80, COMMAND BUFFER ; 1138 
—E 0D Ose PUSHL sP s VI 
0000' CF 9F 000 PUSHAB P.ABU : 
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08 AE 9F 00029 PUSHAB COMMAND _BUFFER s 
000000006 33 8 FB 000 § CALLS 53" LIBSGET_INPUT : 
9 DO 000 OVL RO, STATUS ~ : 
0001827A 53 D1 00036 CMPL STATUS, #98938 3 1128 
05 is 0030 BNEQ es : 
04 BC 05 D B8 e MOVL #5, @NUMBER 3 1129 
04 00043 RET : 1128 
05 23 E8 00044 2$: LBS STATUS, 3$ 3: 1132 
53 DD 00047 PUSHL STATUS 3 
67 01 FB 4 9 CALLS #1, LIBSSIGNA : 
66 6— 3C 0004C 3S: MOVZWL COMMAND "BUFFER, TPARSE_BLOCK+8 : 1136 
04 A6 04 AE 00 tie MOVL COMMAND _ BUFFER+4, TPARSE _BLOCK+12 : 1137 
56 DD 00054 PUSHL R6 : 1138 
56 DD 00056 PUSHL R6 é 
000000006 00 02 FB 00058 CALLS #2, STRSUPCASE F 
1¢ A6 04 0005F LRL COMMAND NUMBER 3: 1139 
0000' CF 9F 00062 PUSHAB COMMAND_K : 1140 
0000" CF 9F 00066 PUSHAB COMMAND STATE : 
F8 A6 9F OO06A PUSHAB TPARSE BLOCK PF 
000000006 00 03 FB 0006D CALLS #3, LIBS TPARsE j 
53 29 DO 00074 MOVL RO, STATUS 3 
01 5 D1 00077 CMPL STATUS, ri : 1145 
0B 13 OO07A BEQL 4$ 3 
00000000G 8F DD 0007C PUSHL eh BADCMD : 1146 
67 01 FB 00082 CALLS , LIBSSIGNAL g 
98 11 ef BRB § 3 1116 
5E DD 00087 4$: PUSHL SP ; 1182 
00000000G 8F DD 00089 PUSHL #ANLRMS$_INTERCOMMAND 3 
7E D4 OOO8F CLRL =(SP) é 
7E 01 CE 00091 MNEGL #1, P) : 
0000G CF 04 FB 00094 CALLS #4. ANL SFORMAT obit ; 
04 BC 1¢ A6 DO 00099 MOVL COMMA ND_NUMBER, @NUMBER ; 1158 
62 66 BO 0009E MOVW TPARSE _BLOCK+8, (R2) 3: 1159 
04 B2 04 B6 66 28 QO0A1 MOVC3 TPARSE “BLOCK+8, @TPARSE_BLOCK+12, a@4(R2) : 1160 
04 000A7 RET 3; 1164 


3; Routine Size: 168 bytes, Routine Base: S$CODE$ + 02B9 
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3 $66 1382 ! Rsbttl "ANLSINTERACTIVE_DISPLAY = Display a File Structure’ 

; 668 1167 1 ! Functional Description: , ; 

; 669 1168 1! his routine is responsible for displaying the various structures 

; 670 1169 1! that exist in an RMS file. It is also responsible for determining 

; 67) Vy 1 the location of the structure following the one it displays. 
[3 67 117¢ 1 ' Formal Parameters: 
13 674 if3 Ft structure_bsd Address of BSD describing the structure to display. 
3; $675 1174 1! It is updated to describe the following structure. 

; ore Bf : parent_bsd Address of BSD describing the parent of the structure. 
; 678 1177 1°! Implicit Inputs: 

Pie eet tae oe 

; 681 1180 1! Implicit Outputs: 

: o8¢ ie : global data 

: ret 1183 : ; Returned Value: 

; : non 

> 686 1185 1! 

3 ret Bt . Side Effects: 

: 689 1188 1 ie 

: 690 1189 1 

; 691 1190 1 

; on Bb a. $ global routine anl$interactive_display(structure_bsd,parent_bsd): novalue = begin 
: 694 1198 2 bind 

; 695 1194 2 s = .structure_bsd: bsd, 

: one yee § p = .parent_bsd: bsd; 

: 698 1197 2 local 

3 244 Bb $ wr rer blockC, byte], 

e : ong; 

: 701 1200 2 . 

: 702 1201 2 

: at 1508 § ! Set up the condition handler for drastic structure errors. 

; 205 1204 ; LibSestabl ish(anl$unwind_handler); 

: dA 1606 ! Set up a pointer to the structure to be displayed. 

; Aes 1608 sp = .sCbsd$l_bufptr) + .sCbsd$l_offset]; 

: 711 1210 ! Because it requires a different routine to display each of the structures, 
3 ars 1211 ! this process is table-driven. The structure type code in the BSD is 

; @ Ist¢ : an index into the STRUCTURE TABLE, which contains a routine number for 

; me 131 ! displaying the structure. Qe simply case on that number. 

; ae : + case .structure_tablel.s(bsd$w_type],0] from 1 to 30 of set 

: 718 1319 (1): ! Routine number 1 is for displaying the file header. No updating 

s 4h ’ ! of the BSD is necessary, since there is no ‘‘next’’ structure. 

: 4 1226 anl$format_file_header(); 
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t me 1 
: 724 13 : (2): ! Routine number 2 is for displaying the RMS file attributes. 
; f ? : : ! No updating of the BSD is necessary. 
: 72? 13 6 anl$format_file_attributes(); 
BO 
: 730 1399 § (3): ! Routine number 3 is for displaying a record from a sequential 
3 ey 1530 ! file. The following routine will do so and update the BSD. 
; at 1536 : anl$seq_data_record(s,true,1); 
: 530 1534 
: 736 1235 [4]: ! Routine number 4 is for displaying the prolog of a relative file. 
3 ree 1538 § ! The following routine will do it. 
: 739 1538 2 anl$rel_prolog(s,true,0); 
: 740 1239 2 
3; 741 1240 2 
; 742 1241 2 (5): ! Routine number 5 is for displaying the buckets of a relative file. 
s 745 1242 2 ! This consists of nothing more than a heading. 
> 744 1243 ¢ 
3 765 1244 (Local 
> 746 1245 3 pp: ref block(,byte); 
s 767 1246 3 
3 oy iste 3 anl$format_line(3,0,anlrms$_relbucket,.sCbsd$l_vbn]); 
: 750 198? 3 ! Now we move on to the next bucket if there is one. We can tell 
: se}! 1520 ; ! by looking at the end-of-file VBN in the prolog. 
: 75 1252 3 pp = plbsdst bufetr] + splbsdst offset); 
s 736 1253 4 if .sCbsd$l_vbnJj+2*.sCbsd$w_size] lequ “bpp lgsl eof! then ( 
: 755 1254 4 sCbsd$l_vbn) =_.sCbsd$l_vbn] + .slbsd$w_sizeJ; 
: 756 1255 4 sCbsd$l_offset] = 0; 
: 757 1256 4 anl$bucket(s,0); 
: 758 1257 2 3); 
; 759 1258 2 
; 760 1259 2 ’ 2 < ° : 
3; 761 1260 2 [6]: ' Routine number 6 is for displaying the cells of a relative file. 
: re 1$¢3 2 ! The following routine will do the work and update the BSD. 
: 764 1368 : anl$relt_cell(s,true,1); 
3; 765 1264 2 
; 766 1265 § ; . , ’ : ; 
3; 767 1668 (7): ! Routine number 7 is for Gisalaying the prolog of an indexed file. 
; 768 126 ! The following routine will do it. 
: 769 1268 
3; 770 1269 anl$idx_prolog(s,true,0); 
We 
; 77 1378 (8): ! Routine number 8 is for displaying an area descriptor in an indexed 
3 ae \gr? ! file. The following routine will do it and update the BSD. 
: oe 1375 anl$area_descriptor(s,.spLlarea$b_areaid],true,0); 
: 778 1379 
: 779 1278 (9): ! Routine number 9 is for displaying a key descriptor in an indexed 
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reo 1386 ; ! file. The following routine will do it and update the BSD. 
A: : 1 anl$key_descriptor(s,.splkey$b_keyref],0,true,0); 
784 1288 
785 1284 (10, 
ny as 
at 1287 185: ' Routine numbers 10 thru 13 are for displaying the bucket 
789 1288 § ' headers for et index, secondary index, primary data, and 
790 1289 : secondary data buckets, Ay Night 84 The following routine 
od 1s § ! will do it and update the BSD. This is for prolog ¢. 
79 1638 2 anl$2bucket_header(s,.spCbkt$b_areano],.spCbkt$b_levelJ,true,0); 
794 1293 2 
96 1598 5 C14 
797 1296 2 154: ! Routine numbers 14 and 15 are for displaying the index records in 
798 1297 2 ! primary and secondary indexes, respectively. The bag e hag 
799 1298 2 ! routine will do it and update the BSD. The routine needs the key 
gor +43 § ! descriptor. This is for prolog 2. 
802 1301 2 anl$2index_record(s,current_stackC.key_level,0,0,0,0],true,1); 
B04 1303 3 
805 7304 216): ! Routine number 16 is for Sloptevine the grinecy data records in a 
806 1305 2 ' primary data bucket. The following routine will do it and update 
od 1308 § !' the BSD. This is for prolog 2. 
809 1308 2 anl$2primary_data_record(s,current_stackC.key_(evel,0,0,0,0),true,1); 
B11 1310 3 
812 1311 2 (17): ! Routine number 17 is for displaying the actual data record bytes 
813 1316 2 ! in a primary data record. The BSD points at the data record, 
814 13135 2 ! which we witt format in hex. This is for prolog 2. 
HE 1318 3 (local | 
oca 
ate 1316 ; rec.dsc: descriptor; 
819 1318 3 selectoneu .anl$gl_fatlfat$v_rtype] of set 
ast 133) Cfat$c_fixed): build_descriptor(rec_dsc,.anl$gl_fat( fat$w_maxrec],.sp); 
822 1321 3 Cfat$c_variable, : , 
$S7 1358 ; afettciuied: build_descriptor(rec_dsc,2+.spl0,0,16,0)..sp); 
es; 
825 1324 an. $format_hex(1,rec_dsc);); 
359 1336 
828 1327 (18]: ! Routine number 18 is for displaying a SIDR record fixed portion. 
369 1328 ! The following routine will do it, and update the BSD. 
Set 1362 !' It needs the key descriptor for this index. This is for prolog 2. 
Hy 1332 anl$2sidr_record(s,current_stack(.key_level,0,0,0,0],true,1); 
34 133 
835 1334 {19}: ! Routine number 19 is for Gisplay ing a SIDR pointer. The following 
836 1335 ! routine will do it and update the 6SD. This is for prolog 2. 
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anl$2sidr_pointer(s,true,2); 


! Routines number 20 through 23 are for displaying primary and 
! secondary index buckets, and primary and secondary data buckets. 
The following routine will do it and update the BSD. This is 


for prolog 3. 


(bind 
k = current_stackC.key_level,0,0,0,0]: bsd, 
kp = .kCbsd$l_bufptr] * .kCbsd$l_offsetJ: blockl,byted; 


anl$3bucket_header(s,.spCbkt$b_indexno], .kpCkey$v_dupkeys],.spCbkt$b_levelJ,true,0);); 


! Routines number 24 and 25 are for displaying the index records 
! in primary and secondary indexes, respectively. The following 
: routine will do it and update the BSD. It needs the key 

! descriptor. This is for prolog 3. 


anl$3index_record(s,current_stackC.key_level,0,0,0,0],true,1); 

! Routine number 26 is for displaying the ges data records in a 

! primary data bucket. The following routine will do it and update 

! the BSD. It needs the key descriptor. This is for prolog 3. 
anl$3primary_data_record(s.current_stackC.key_level,0,0,0,0],true,1); 
! Routine number 27 is for displaying the actual data record bytes 

! in a primary data record. We call a routine to do it. This is 

! for prolog 3. 
anl$3format_data_bytes(1,s,current_stackC.key_level,0,0,0,0]); 

' Routine number 28 is for displaying a SIDR record fixed portion 

! for prolog 3. The following routine will do it, and update the BSD. 
! It needs the key descriptor for this index. 


anl$3sidr_record(s,current_stackC.key_level,0,0,0,0],true,1); 


! Routine number 29 is for displaying a SIDR pointer for prologue 3. 


! The following routine will do it and update the BSD. 
anl$3sidr_pointer(s,true,2); 


! Routine number 30 is for Gisplaying the header of a reclaimed 
' bucket on the available chain off an area descriptor. This 
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04 0007 RET ; 
1 DD Nika 4$: PUSHL #1 : 1232 
; BS RR : 
00006 CF 8 FB 0007D CALLS 3S. ANLS$SEQ_DATA_RECORD : 
94 9008¢ RET : 
7E Qt £0 00085 5$: mova #1, -(SP) : 1238 
0000G CF 88 FB itt: CALLS #3, ANLSREL_PROLOG 3 
04 A2 on So08e 6S BUSHEL 4(R2) t 1247 
000000006 8F pp 99091 PUSHL HANLRMSS RELBUCKET : 
7E 03 D 00097 MOVa o =-(SPY : 
0000G CF 04 FB OOO9A te snc seen Nae g 
OC AG 08 A cI 0009F ADDL hi : 1252 
50 02 A2 3C 000A5 MOVZWL + 125 
54 04 B240 3€ 000A9 MOVAW ae R4 : 
70 A 54 D1 OO0A CMPL ' #15 BBS : 
01 18 0008 BLEQU 7$ : 
04 00084 RET : 
04 A2 50 CO 00085 7$: ADDL2 RO, 4(R2) + 1254 
08 A2 D4 00089 CLRL = &(R2) + 1255 
7E D4 000BC CLRL = = (SP) + 1256 
52 DD OOOBE PUSHL  R2 : 
00006 CF 02 FB 000C0 CALLS #2, ANLS$BUCKET ; 
04 000C5 RET s 1215 
01 DD 000¢6 8$: PUSHL #1 + 1263 
01 DD 000C8 PUSHL #1 F 
32 DD OOOCA PUSHL Re ; 
0000G CF 03 FB 000CC CALLS #3, ANLSREL_CELL : 
04 00001 RET 3 
7E 01 7 9000 9$: mov #1, -(SP) : 1269 
0000G CF 8 FB 00007 CALLS #5, ANLSIDX_PROLOG g 
04 000DC RET ; 
7E 01 7D 000DD 10$: mova 1, =(SP) : 1275 
7E 02 a3 9A O00E0 MOV ZBL 2(SP), -(SP) ; 
00006 CF 04 FB 000e6 CALLS #4, ANLSAREA_DESCRIPTOR ; 
04 000€B RET ; 
7E 01 7D OOOEC 11$:  MOVQ #1, =(SP) + 1281 
re D4 OOOEF CLRL 30s = ¢ §P : 
7E 15 A 9A O00F | NOV ZBL 21 (SP), -(SP) ; 
0000G CF 8g FB tit CALLS rd - ANLSKEY_DESCRIPTOR : 
04 OOOFC RET F 
7E 01 7D OOOFD 128: Move -(SP) > 1292 
7E Oc Ad 9A 90190 MOVZBL TDtspy =(SP) ; 
7E 01 a3 Bios ort bg £3 SP). *=(SP) g 
0000G CF Fd FB OO10A CALLS #5, ANLS$2BUCKET_HEADER ; 
04 0010F RET 3 
ot 20 O19 13$: PUSHL a ; 1301 
65 1 cS 0114 MULL $26 KEY HEEL at 3 
FAOO C540 9F 00118 PUSHAB CURRENT _ STACK Ron” ; 
52 DD 0011D PUSHL ; 
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#4, ANLSZ2INDEX_RECORD 
#1 


#1 
#24, KEY_LEVEL, RO 
CURAENT _STACKERO} 


#4, ANL$S2PRIMARY_DATA_RECORD 
ANLS$GL_FAT, RO 
#0, Ae (RO), R1 


RO), REC_DSC 


», REC_DSC 

» REC_DSC 

SP, REC_DSC+4 

SP 

#1 

#2, ANLSFORMAT_HEX 
#1 


#1 
#24, KEY_LEVEL, RO 
CURRENT STACKEROJ 


#4, ANL$2SIDR_RECORD 
#2 
#1 
a3 
#3, ANLS$2SIDR_POINTER 


#24, KEY_LEVEL, RO 
veyed STACKCROJ, RO 


#6, ANLS3BUCKET_HEADER 
# 


# 
#24, KEY LEVEL. RO 
CURRENT _STACKLRO] 


#4, ANLS$3INDEX_RECORD 


a 
#1 
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50 & 18 ¢5 00100 MULL3 #24, KEY_LEVEL, RO : 
FAOO (540 9F ight PUSHAB (¢ RRENT STACKERO] : 
52 DD 00109 PUSHL : 
| 00006 CF 04 FB 00108 CALLS #4, ANLS3PRIMARY_DATA_RECORD : 
50 65 18 C5 OO1E1 24$:  MULL3 #24, KEY LEVEL RO + 1375 
FAOO C540 9F OO1ES PUSHAB CURRENT_STACKLROJ ; 
| 52 DD OO1EA PUSHL R2 : 
01 DD OO1EC PUSHL #1 ; 
0000G CF 03 =FB pees CALLS #3, ANLS3FORMAT_DATA_BYTES s 
04 OO1F RET ; 
01 DD OO1F4 25$:  PUSHL = #1 + 1382 
| 1 DD 001F6 PUSH : 
50 65 18 C5 001F8 MULL3 #24, KEY_LEVEL, RO ; 
FAQO C540 9F OOTFC PUSHAB CURRENT_STACKLRO] ; 
52 DD 00201 PUSHL ; 
00006 CF 04 FB 00203 CALLS #4, ANL$3SIDR_RECORD ; 
04 00208 RET ; 
02 DD 00209 26$: PUSHL #2 + 1388 
01 DD 00208 PUSHL #1 ; 
52 DD 00200 PUSHL Re ; 
0000G CF 03 FB 0020F CALLS #3, ANL$S3SIDR_POINTER F 
04 00214 RET : 
7E 01 7D 00215 278: MOVQ #1, =(SP) s 1395 
52 Db 00218 PUSHL F 
0000G CF 03 FB OO21A CALLS #3, ANLSSRECLAIMED_BUCKET_HEADER a 
04 0021F RET + 1400 


; Routine Size: 544 bytes, Routine Base: S$CODE$ + 0361 


_ 
| 
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_ V04-000 ANLSINTERACTIVE_DOWN = Handle DOWN Command 14-Sep-1984 11:55:01 ANALYZ.SRCIRMSINTER.B32;1 (11) 
1/3 903 1401 1 %sbttl "ANLSINTERACTIVE_DOWN = Handle DOWN Command’ 
'3 6904 1006 1 ee 
i; 905 1405 1 ! Functional Description: : 
i; 906 1404 1! $ routine handles the interactive DOWN command. It is responsible 
: 907 1405 1! for determining the path that the user wants to take, and constructing 
£ o08 1208 ! a BSD that describes the resulting structure. 
; 910 1408 1 ! Formal Parameters: ; ; 
is 91) 1409 1! path Address of descriptor of desired path name. 
3 aig 1410 1! current_bsd Address of BSD describing current structure. 
; 2 1411 1! down_bs Address of BSD to fill in with the down structure. 
; 914 1elg & new_level The stack level of the BSD to fill. 
; 915 1415 1! tt 
; 916 1414 1 ! Implicit Inputs: 
; 917 1415 1! global data 
; 918 1416 1! 
; Wh? 1417 1°! Implicit Outputs: 
; 920 1418 1! global data 
3 692 1419 1! 
3; 922 1420 1 ! Returned Value: ; : 
: 925 1421 1! True if there is a down structure, false if not. 
> 924 1956 ee 
; 925 1423 1 ! Side Effects: 
3; 92 159 1! 
i; 927 1425 1 !-- 
s 9e8 1426 1 
; 929 1427 1 : 
; a 10$8 § global routine anl$interactive_down(path,current_bsd,down_bsd,new_level) = begin 
3 932 1430 2 bind P 
; 933 1431 2 path_dsc = .path: descriptor, 
; 934 1432 2 c¢ = .current_bsd: bsd, 
; 935 1433 2 d = .down_bsd: bsd; 
3; 936 1434 2 
3 Par 1435 2 local 
; 938 1436 2 i: long, j: long, 
; 939 1437 2 path_index: Long. 
: 940 1438 2 cp: ref block{,byte], 
: 941 1439 2 hp: ref block{, byte], 
> 942 1440 2 sp: ref block(, byte]; 
; 943 1441 
3 944 1449 ; 
; bot 127 ! Establish the condition handler for drastic structure errors. 
: of ite2 $ LibSestabl ish(anl$unwind_handler); 
3 949 1447 5 ! The first thing we need to check is whether there are any possible 
3 oat re 2 ! paths down from the current structure. If not, that's an error. 
; 1450 if «structure tablet .clhsdiu_type).1) eqlu 0 then ( 
: 95 1451 signat (anlrms$_nodown) ; 
: 954 1636 return false; 
3 999 145 3 
; 956 1454 
3 Tor 1455 ! Now, if the user has entered the command DOWN ?, or has not entered 
; 958 1456 ! any path name at all and there is more than one way down, we need to 
; 959 1457 ! display a List of possible paths. 


‘ es 
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'3; 960 1458 

i; 961 1459 if (.path dsc peng gequ 1 and ch$rchar(.path H pis (48! eqlu '?') or 

i: 96 1460 (.path_dscllen] eqlu 0 and .structure_tableL.clbsd$w_typeJ,2] nequ 0) then ( 

3 (96 1461 sTgnal (anirms$ Gone tp) 

(3 9646 1466 incru i from 1 fo 3 do ; 

3 965 146 if (j = «structure tablel.clbsd$w_typeJ],.iJ) nequ 0 then ; 
; 966 1464 signal (an(rms$_downpath,2,.path_tableL.j,path_name],.path_tablel.j,path_text]); 
> 967 1465 3 return false; 

: 968 1466 ); 

> 969 1467 

; 9rO 1468 ! Now, if the user has entered a path name, we need to figure which path 

; 971 1469 ! they have specified. If they didn't enter one, we know at this point 

: 8f6 1o09 ! that there is only one way down. 

; 974 og if .path_dscClen] gtru 0 then ( 

; 975 1473 3 Tocal 

; 976 1474 3 Length: long; 

; 977 1475 3 

; 978 1476 3 ' Now =p through the down paths specified by this structure entry. 

Er 4 Vere ; ! we are looking for a path name that matches what the user entered. 

; 981 1479 3 path_index = 0; 
; 982 1480 3 incru i from 1 to 3 do ’ 
> 4983 1481 4 if (j = .structure_tablel.clbsd$w_typeJ,.iJ) nequ 0 then ( 
> 984 1482 4 bind . 
; «985 1483 4 a_path_name = .path_tablel.j,path_nameJ; 
: 986 1484 4 Length = minu(ch$rchar(a_path_name),.path_dscLlen]); 
3; 987 1485 5 if ch$eql(. length, .path_dsclptrJ, .Lengthsa_path_name+1,' ") then ( 
; 988 1486 5 ; path_index = .j; 
>; 989 1487 5 exitloop; 
; 990 1488 4 ); 
; 991 1489 3 3 
; 992 1490 3 
; 993 1491 2) else 
3; 994 1492 2 path_index = .structure_tablel.clbsd$w_typel],1); 
| 
| 


| 
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(3 9% 9 ! Let's set up a pointer to the current structure. Also we sometimes need 
83h g : one to the bucket header. 
3 999 cp = -cfbsd$\_bufptr + .cCbsd$l_offsetd; 
| 199 hp = .clbsd$l_bufptrd; 
100 : OK, now we can case on the path routine number and petues ty effect 
1; 100 : the downward movement. We are to fill in the down_bsd with a description 


! of the resulting structure. The BSD type is specified in the path table. 


init_bsd(d); 
d(bsd$w_type] = .path_tablel.path_index,path_result); 
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case .path_tablel.path_index,path_routine] from 0 to 22 of set 


pole folelololololeoloal eevee) 


(0): : If the path_index wasn't set to a valid path number, then the 
! user must have entered a bad path name. 


(signal (anlrms$_badpath); 
return false;); 


Cij: : Downward ~ 1 is from the file header to the RMS attribute 
! area. All we need to fill in is the type, which was done above. 


C2]: : Downward path 2 is from the RMS attribute area to the actual 
: blocks of the file. The structure type Sapenes on file organization. 
If it’s a sequential file, we have to check that there are 


any records at all. 
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(d{bsd$w type] = 
; Tselectoneu .anl$gl_fatlfat$v_fileorg] of set 
3 Cfat$c_sequential]: (if .anl$gl_fatCfat$l_efblk] eqlu 1 and 
-anl$ql_fatlfatSw_ffbyte] eqlu 0 then ( 
Ae sae (anlrms$_norecs); 

3 return false; 
0 ); 
037 3}; 
038 : 
039 Cfat$c_relativel: 4; 
040 é 
041 Cfat$c_indexed): 7; 

042 tes); 

043 d(bsd$w_size) = 1; 

ose d(bsd$l"vbn) = 1;5; 

046 (3): ! Downward path 3 is from a relative file prolog to its first 

bee ! data bucket. There may not be any. 

049 if .anl$gl_fatCfat$l_hiblk]-1 lssu .ani$gl_fatCfat$b_bktsize] then ( 
050 signal (anlrms$_norecs); 

051 return false; 

052 ) else ( 
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(12) 


1 
S 
5) 
C 


n 
a 

af ‘ 
dlbsd$l_vbnj = .cplplgsw 


3 1053 1550 bsd$w_size] = .anl$gl_fatCfat$b_bktsizeJ; 
(3 1054 1551 dvbnJ; 
/3 1055 1226 ); 
1; 1056 155 
; 1057 1554 ; ; 
; 1058 132? [4]: : Downward path 4 is from a relative file bucket to the first 
; 1059 1556 ! first cell in the bucket. ; 
; 1060 1557 
; 1061 1558 (dibsd$w_size] = .cCbsd$w size]; 
3 1066 1559 d(bsd$l_vbn] = .clbsd$l_vbnJ;); 
; 106 1560 
; ee 1561 
; 1065 1286 (5): ! Downward path 5 is from an indexed file prolog to the first 
; 1066 156 ! area descriptor. 
3 1067 1564 ; 
>; 1068 1565 (d(bsd$w_size] = 1; 
> 1069 1566 2 d{bsd$l_vbn] = .cplplg$b_avbnj;); 
: 1070 1567 
; 1071 1568 
; 1072 1569 [6]: : Downward path 6 is from an indexed file prolog to the first 
; 1073 1570 2 : aa descriptor. We need to remember the stack level of the 
; 1074 1571 2 : BSD we are creating, because lots of other folks need to get 
; 1075 1376 2 ! at the key descriptor. 
: 1076 157 ; 
; 1077 1574 (d(bsd$w_size] = 1; 
: 1078 1575 3 d(bsd$l_vbnj = 1; 
: 1079 1576 § key_level = .new_level); 
; 1080 1577 
; 1081 1578 2 : : 
; 1082 1579 2 (7): ! Downward path 7 is from an indexed file key descriptor to either 
; 1083 1580 2 ! the primary or secondary index buckets. We must distinguish 
s He 138) $ ! between prolog 2 and 3 files and worry about uninitialized indexes. 
; 1086 15835 3 if ecpCheySv_initidx) then ( — 
3 ieee 1584 3 signal (anirms$_uninitindex); 
; 1088 1585 3 return false; 
3; 1089 1586 3 ) else ( , 
3; 1090 1587 4 d(bsd$w_type] = (if .anliywiprolog eqlu plg$c_ver_3 then 
: 1091 1588 4 if Tcplkey$b_keyre#] @qlu70 then 20 else 21 
3; 1092 1589 4 else 
: 1093 1590 3 if .cpCkey$b_keyref] eqlu 0 then 10 else 11); 
3 1094 1591 3 d(bsd$w_size] = septhort®, tes kts2); 
3 1095 1592 3 d(bsd$l_vbnJ = .cplkey$l_rootvbn]; 
: 1096 1593 : 
; 1097 1594 
3; 1098 1595 ; : : 
; 1099 1596 (8): ! Downward path 8 is from an indexed file key descriptor to either 
; 1100 1597 ! the primary or gocondery data buckets. We must distinguish. 
ls 119) 1238 ! between prolog 2 and 3 files and worry about uninitialized indexes. 
3 1108 1600 if ocpheySv initidx) then ( — 
3 1106 160 s e. (anirms$_uninitindex) ; 
3; 1105 1606 return false; 
3 1106 160 ) else 
: 1107 1604 4 d{bsd$w_type] = (if onl Sau _prelog eqlu plg$c_ver_3 then 
3; 1108 ion? 4 if .cplkey$b_keyref] eqlu 0 then 22 else 23 
; 1109 1 4 else 
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ANLSINTERACTIVE_DOWN = Handle DOWN Command 14-Sep-1984 11:55:01 ANALYZ.SRCIRMSINTER.B32;1 (12) 
1607 if Cpt hore _heprets eqlu 0 then 12 else 13); 
608 Sppsddu..s)e42 = .¢ Ekey$b datbktszJ; 
44 dlbsd$l_-vbnJ = .cplkey$l_TdvbnJ; 

13 

ig (9): ! Downward path 9 is from an index file index bucket to the first 

1 ! index entry in the bucket. This is for prolog 2. 

16 (d(bsd$w_type] = (if .clbsd$w_type] eqlu 10 then 14 else 15); 

17 d(bsd$w_Size] =. Chsdéu. sized; 

18 dlbsd$l_vbnj =_.clbsd$l_vbnJ; 

19 d{bsd$l-offset] = bkt$c_loverhdsz;); 


0” 
_ 
Oo 
i) 
ne 


: Downward path 10 is from a primary or secondary index record to 
! the index or data bucket pointed to by it. This is for prolog 2. 


(if .hpCbkt$b_level] gequ 2 then ( 
: The next lower level is another index bucket. Set the 
! type petty to whether it's hee or secondary. 
! Set the size the same as the current index bucket. 


d(bsd$w_type] . (if .clbsd$w_type] eqlu 14 then 10 else 11); 


! in the bucket. There might not be any. 


ee eee SS 
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d(bsd$w_sizej = .clbsd$w_sizel; 
) else ( 
3 ! The next lower level is the data buckets. Set the type 
! according to whether it's a pr eere or secondary bucket. 

3 ! The size has to be found from the key descriptor. 
3 d(bsd$w_type] = (if .clbsd$w_type] eqlu 14 then 12 else 13); 
4 begin 
4 bind 
4 = current_stackC.key_level,0,0,0,0]: bsd, 
4 p = .kCbsdSl_bufptr) * .kCbsd$loffsetd: block, byte); 
4 d(bsd$w_size] = .kpCkey$b_datbktsz]; 
4 end; 
i ‘ 
49 ' Now we set up the VBN of the downward structure by looking in the 

? ! index record. 

§ d(bsd$l_vbn) = (case cpl iresy otrszi from 0 to 2 of set 

0): -cpl1,0,16,0); 

4 3}: -cp ee Pet 

5 2): .cpl1,0,52,0); 

6 ag 

4 d(bsd$l_offset) = 0:5; 

9 

$9 (11): ' Downward path 11 is from a primary data bucket to the first record 


if .npCbkt$w_freespace] eqlu bkt$c_overhdsz then ( 
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3; 1167 1664 signal (anlrms$_emptybkt); 
; 1168 1665 return false; 
>; 1169 9 ¢ ) else ( E 
3 1170 166 d(bsd$w_size] =. pbegsu ot ged 
; 1171 1668 dibsd$l_vbnj =_.clbsd$l_vbnJ; 
; 117¢ 1669 d{bsd$l-offset) = bkt$c_overhasz; 
3 117 1670 ; 
3 1174 1671 
3 1175 1o7¢ 
3 1176 167 (12): : Downward path 12 is from a primary data record to the actual 
; Ea 162% ! record bytes. They may not exist. This is for prolog 2. 
3 1179 1676 if .cplirc$v_deleted) or .cplirc$v_rrv] then ( 
; 1180 1677 signal (anlrms$_nodata); 
3 1181 1678 return false; 
3: 1182 1679 ; ) else ( 
> 1183 1680 d(bsd$w_size] = .cCbsd$w_sizel; 
3 1186 1681 yt ye = .clbsd$l_vbn); 
: 1185 1686 d(bsd$l_offset) = .clbsd$l_offset] + 
> 1186 168 1+ 
: 1187 1684 3 1+ ; 
3; 1188 1685 (if .cplirc$v_noptrsz] then 0 else .cplirc$v_ptrszJ]+3); 
> 1189 1686 ); 
3 1190 1687 
3 1191 1688 2 
3 1192 1689 213]: ! Downward path 13 is from a primary data record to the data bucket 
3 1193 1690 2 ! pointed at by the RRV. The pointer may not exist. This is for 
3 1194 1691 2 ! prolog 2. 
3 1195 1692 
3 1196 1693 if .cplirc$v_noptrsz] then ( 
3 1197 1694 signal (ankrms$_norrv); 
3: 1198 1695 3 return false; 
3 1199 1696 3 ) else ( 
: 1300 1697 3 d(bsd$w_size] = .clbsd$w_sizel; 
3; 1201 1698 4 d(bsd$l_vbn] = (case cpl irgdy pers) from 0 to 2 of set 
3; 1202 1699 4 C0]: -cpl3,0,16,0); 
; 1203 1700 4 33: Stee ete 
3 1204 1701 4 2): -cpl3,0,32,0); 
: 1205 1702 3 tes); 
3; 1206 1703 § ); 
: 1207 1704 
3; 1208 1705 2 
3; 1209 1706 2 (14): ! Downward path 14 is from a secondary data bucket to the first record 
: 1310 170 ; ! in the bucket. The data bucket can be empty. 
: isi¢ 1709 if .npCbkt$w_freespace) eqlu bkt$c_overhdsz then ( 
3; 121 1710 signet (anirms$_emptybkt); 
3 1214 1711 return false; 
§ 1¢13 Har ) else ( 3 
3: 1216 171 d(bsd$w_size] = .c{bsd$w_sizel; 
3 1217 1714 ; d(bsd$l_vbn) =_.clbsd$l_vbnJ; 
: 1218 1715 d{bsd$l“offset] = bkt$c overhdsz; 
3 1633 inte ; 
: 155) 1518 
> 1222 1719 215]: ! Downward path 15 is from a SIDR record to the first pointer in the 
: 1223 1720 2 ! pointer array. We have to get the key length to figure out where 
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: the first pointer is. The work longword in the BSD must be 
: initialized to the number of pointer bytes so people can tell 
! where.they end. This is for prolog 2. 


(d(bsd$w_size] = .cCbsd$w_sizel; 
dCbsd$l_vbnJ = .clbsd$l_vbnj; 
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begin 
bind 

k = current_stackC.key_level,0,0,0,0]: bsd, 

kp = .kCbsdSl_bufptr] * .kCbsd$l_offsetJ: blockl,byte; 
d{bsd$l_offset] = cCbsd$l_offset] + 


i+ 

1+ 

ye -cpCirc$v_noptrsz] then 0 else 4) + 
+ 


; .kplkey$b_keysz]; 
d(bsd$l_work] = (if_.cplirc$v_noptrsz] then .cpl2,0,16,0] else .cpl6,0,16,0]) - 
- -kpCkey$b_keyszJ; 
end;); 


C16]: ! Downward path 16 is from an index bucket to the first index 
! entry in the bucket. We must set the work longword to zero to 
! indicate we are on the zeroth record. This is for prolog 3. 


Cosd$w_type] = (if .clbsd$w_type] eqlu 20 then 24 else 25); 
bsd$w_Size] = .c(bsd$w_sizeJ; 

bsd$l_vbn] =_.clbsd$l_vbnj; 

bsd$l_offset] = bkt$c_overhdsz; 

bsd$l_work] = 0;); 


{(17]: ! Downward path 17 is from a primary or secondary index record to 
! the index or data bucket pointed to by it. This is for prolog 3. 


(if .hpCbkt$b_level] gequ 2 then ( 


! The next lower level is another index bucket. Set the 
' type pesecerng to whether it's pare or secondary. 
' Set the size the same as the current index bucket. 


d(bsd$w_type] = (if .clbsd$w_type] eqlu 24 then 20 else 21); 
ae atbsdbvistee) = vetbsdou, sizele” . 
else 
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! The next lower Level is the data buckets. Set the type 

! according to whether it's a or teary or secondary bucket. 

! The size has to be found from the key descriptor. 
d(bsd$w_type] = (if .clbsd$w_type] eqlu 24 then 22 else 23); 


begin 
bind 


DS DE DS DS ODS OS DDS TTT BS BS BY EE EAN WWIWInnorororporsrnonon oo 


k = current_stackC.key hovel -8 0,0,0): psd, 
kp = .kCbsd$l_bufptr] * .k bsd$l ‘offset : block(€, byte); 


ee eee ee ee ee ee ee ee 
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178¢ 
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1784 
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1786 
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1738 & 
1789 4 
1790 4 
1791 4 
1738 3 
1793 2 
1794 2 
1795 2 
1796 2 (18): 
1797 2 
1798 2 
1799 3 
1800 3 
1B) 
Bs 
1804 3 
1805 3 
1806 3 
1807 3 
1808 3 
1809 3 
1810 3 
1811 2 
1812 2 
1813 2 
1814 2 (19): 
1815 2 
1816 2 
1817 
1818 
1819 
1820 3 
1821 ; 
1822 
1823 4 
1824 4 
1825 4 
1826 4 
Hs H4 3 
1828 
1365 

18 0 
1831 (20): 
1836 
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aCbsdSu_size) = .kpCkey$b_datbktsz); 
end; 


! Now we set up the VBN of the downward structure by looking in the 
! VBN List and extracting the appropriate VBN. The work longword 
! in the BSD tells us which key we are on. 


= (.cCbsd$l wendptr]-4) = (.cCbsd$l ayo) ot, hot en tie -ptr_sz]+2); 
d bsasi _vbn] = icase . -npLbk Sy | YaPEr a $4 from 0 to 2 of s 
: .s 
g  SeebR Rodeo Bis 
2]: -spl0,0,32,0); 


tes); 
d{bsd$l_offset] = 0;); 


! Downward path 18 is from a primary data record to the_actual 
i data bytes. They may not exist. This is for prolog 3. 


if .cplirc$v_deteted] or scot irchy, ru_delete] or .cplirc$v_rrvJ then ( 
signal (anirms$ _nodata) : 
return false; 

) else ( 


' The BSD for the data bytes is identical to that for the 
i complete record, because we need all the record information 
' to display the bytes. 


d(bsd$w_size] = .cCbsd$w_ size]; 
d(bsd$l-vbn] =_.cCbsd$l_vbn 
d(bsd$i_offset] = itt i “oftsetd; 


! Downward path 19 is from_a primary data record to the data bucket 
poseenee by the RRV. The pointer may not exist. This is for 
prolog 


if t -coliresy. poptres. then ( 
— Canlirms$_norrv); 
urn false; 


) else ( 
d(bsd$w_size] = .c{bsd$w_size]; 
d{(bsd$l_vbn] = (case -ebLircsy ptrsz] from 0 to 2 of set 
C0): -cpl5,0,16,0); 
1 .cpls, 063-0): 
2) -cpl5,0,52,0); 
tes); 


! AVAILABLE FOR FUTURE USE. 
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is 38 1835 
|; 1339 1 $ (21]: ! Downward path 21 is from a prolog 3 SIDR record to the first 
i; 1340 183 : — in the pointer array. We have to determine the key 
'3 1341 1838 : Length in order to figure out where the first pointer starts. 

: 3 ¢ 1839 : The work longword in the BSD must be initialized to the 
3 ah re 4 of pointer bytes so the end of the SIDR record can be 

: 1345 1848 ; : 

3: 1346 184 (d(bsd$w_size] = .clbsd$w_sizel; 

: it ot ieee ; d{bsd$l_von] = .clbsd$l_vbn]; 

: 1349 1846 4 begin 

: 1350 1847 4 bind 

3: 1351 1848 4 k = current_stackC.key_level,0,0,0,0]: bsd, 

3 1358 1849 4 kp = .kCbsdSl_bufptr] * .kCbsd$l_offsetJ: blockl,bytel; 

: 1354 1851 4 Local 

$ 1322 1928 : key_length: long; 

: 1357 1854 5 key_length = (if -koChey$y_ key compr} then 

3 1328 W322 2 ‘ -cpC2,0,8,0] + irc$c_keycmpovh 

; else 

3; 1360 1857 4 rice ties 

: 1303 1938 ? d{bsd$l_offset] = . Cbsd L_offset] + 

; 1363 1860 4 -key_ Length; 

: 1364 1861 4 dibsd$l_work] = “cpt0,0,16,0) = 

i 1366 1Be3 3 ends Pima tite tte 

: 1367 1864 2 sis 

; 1368 1865 2 
; 1369 1866 222]: ! Downward path 22 is from an area descriptor to the first reclaimed 
3 1370 H+ +44 2 ' bucket on the available List (if any). This works for both prologs. 
; 1378 1869 § if .cplarea$l_avail] eglu 0 then ( 

; 137 1870 3 signal (anirms$_noreclaimed); 

ie a ee 

; else 

3 1376 1873 3 d(bsd$w_size] = .cpCarea$b_arbktsz]; 

: 1 + 14 3 * d(bsd$l_vbn) = .cplarea$l_avail); 

3 1379 1876 $ tes; ; 

3 1380 1877 2 

2 133 1978 ! Now we can read in the bucket which was set up. 

: 1385 1880 anl$bucket(d,.cCbsd$l_vbnJ); 

; 1385 1882 return true; 

: 1386 18835 2 

; 1387 1884 1 end; 
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- Handle DOWN Command 14- pe 984 1 :01 ANALYZ.SRCJRMSINTER.B32;1 
5 04 C2 0000 SUBL2 #4 
2§ 06 AC 6 20908 MOVL PATH 
59 08 AC 00 00009 MOVL CURRENT? BSD, R9 
‘8 OC ac 00 9900p MOVL  DOWN_BSD, 
0000G CF 9F 00011 PUSHAB ANL SONWIND HANDLER 
00 01 FB 00015 CALLS #1 STABLISH 
SA 69 3C 0001C MOVZWL 
OOOO'CF4A DF OOOTF PUSHAL iat _TABLE+1£R10] 
9E 95 00024 STB. Ss a SP 
09 12 00026 BNEQ 1$ 
000000006 8F pd 00028 PUSHL #ANLRMS$_NODOWN 
O4A8 1 O00¢E BRW 112$ 
65 B85 00031 1$: TSTW (R5) 
06 13 90033 BEQL 2$ 
3F 04 91 00035 CMPB =s« G4 (RS), #63 
BB 13 00039 BEQL 3$ 
65 85 00038 2$: TSTW (RS) 
50 12 0003p BNEQ 6 
0000'CF4A DF 0003F PUSHAL STRUCTURE _TABLE*2CR10] 
9E 95 00044 TSTB Ss AC SP) + 
4? 13 00046 BEQL = «$ 
000000006 8F DD 00048 3$: PUSHL #AN LRMS$ DOWNHELP 
00 01 FB 0004E CALLS #1, LIB$SIG 
52 01 00 00055 MOVL 
50 624A DE 00058 4$: MOVAL (ISCR103, RO 
54 0000'CF40 9A 0005¢ MOVZBL STRU CruRé _TABLECROJ, J 
21 13 00062 BEQL 
54 OA C5 00064 MULL3 #10, J, RO 
0000'CF40 SF 00068 PUSHAB PATH_TABLE+4(RO] 
9E DD 0006D PUSHL a (SPY+ 
0000'CF40 OF O006F PUSHAB PATH TABLECRO] 
9E DD 00074 PUSHL a(SPY+ 
02 DD 00076 PUSHL # 
000000006 8F DD 00078 PUSHL #ANLRMS$_DOWNPATH 
00 04 FB OO07E CALLS #4, LIBSSIGNAL 
52 D6 00085 5$: INCL I 
03 52 D1 00087 CMPL 1, #3 
CC 1B O0008A BLEQU 4$ 
0468 31 0008C BRW 115$ 
65 BS OOO8F 6$: TSTW (R5) 
3F 13 00091 BEQL 10$ 
1. 01 7D 00093 MOV = «#1, ‘I 
50 664A DE 00096 7$: MOVAL (1ISCR10I 
54 0000" CF 49 9A 0009A MOVZBL STRUCTURE _TABLECROJ J 
27 13 OO00A0 BEQL $ 
54 OA C5 000A2 MULL3 #10, J, RO 
0000°CF40 9F O00A6 PUSHAB PATH_TABLECRO) 
51 9E DO O00AB MOVL a (SPJ+, RI 
50 61 9A OOOAE MOVZBL (R1), RO 
50 65 B81 90081 CMPW (RS). RO 
03 1€ 000B4 BGEQU 8$ 
50 $3 3C 00086 MOVZWL (RS), RO 
58 0 DO 00089 8$: MOVL RO, LENG 
B5 38 9 OBC CMPC3 LENGTH, ae cRS), 1(R1) 
Q g 00C BNEQ $ 
57 4 pO 000C4 MOVL J, _PATH_INDEX 
11 11 000¢7 BRB {$s 
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1277 bytes, Routine Base: $CODE$S + 0581 


; Routine Size: 


3 
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i Side Effects: 


G 16 
| RMSINTER RMSINTER = Interactive Analysis Mode 16-Sep-1984 00:06:39 AX-11 Bliss-32 V4.0-74 Page 57 
~v04-000 ANLSINTERACTIVE_DUMP = Dumps Block in Hex 14-Sep-1984 09:99:34 ANALYZ  SREIRMGINTER 0395 1 . (13) 
388 ge Rsbttl *ANLSINTERACTIVE_DUMP = Dump a Block in Hex’ 
331 88 i Functional Description: 
36 88 ; This routine handles the interactive DUMP command, which allows the 
ter Hf user to dump a single virtual block in hex. 
395 89 i Formal Parameters: 
396 89 : argument A descriptor of the orgunent poor’ tee by the user. 
$36 $2 It should be the VBN of the block to be dumped. 
399 89 i Implicit Inputs: 
4 global data 
89 i Implicit Outputs: 
34 global data 
90 i Returned Value: 
90 none 
' 
' 
' 


global routine anl$interactive_dump(argument): novalue = begin 


bind : 
argument_dsc = .argument: descriptor; 
local 

status: long, 

vbn: Long, 

b: bsd; 


! Begin by converting the user's argument to a longword. If it won't convert, 


ee a a a ee ee ee en ne ee ee ee ee ee ee 
MPOMOPINPOPINIPOND SS BB OOOOOO 


WO ODOODOWOWVOWVOOO VO OOO OOOOODOOOOOVOOOOOOOOOOOODO 


; ! tell the user and quit. 

7 status = anl$internalize_number (argument_dsc,vbn); 

8 if not .status then ( 

9 signal (anirms$_badvbn) ; 

return; 

: 5 ! Now let's constrain the VBN to within the Limits of the file. Because of 
434 ; ! a stupidity in RMS block 1/0, we have to contrain sequential files to — 
ot 3 ' the end-of-file block, while the others only to the end of the allocation. 
437 3 vbn = minu( maxu(1,.vbn) ; 
$38 3 (if cani$gl_fatCfat$v_fileorg] eqlu fat$c_sequential then 
439 3 -anT$gl_fatlfat$l_efblk) 

440 3 else . 

rt ; -anl$gl_fatCfat$l_hiblk])); 

ca Z ! Build a BSD describing the desired block and read it in. 
445 4 init_bsd(b); 


RMSINTER 


RMSI 
—Vv04-000 ANLS 
13 1446 1308 
3 1447 194 
3 1448 1944 
'3 1449 1945 
'3; 1450 1946 
3 1451 1947 
: 1025 1948 
13 145 1949 
13 1454 1950 
3: 1455 1951 
: 1456 1326 
3 1457 195 
3 1458 1954 
3: 1459 1955 
; 1460 1956 
3 1461 1957 
3: 1462 1958 
3 1463 1959 
: 1464 1960 
3; 1465 1961 
3; 1466 1962 
3; 1467 1963 
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! 


H 16 
TER = Interactive Analysis Mode 16-Sep-1984 00:06:39 AX-11 Bliss-32 V4.0-74 
NTERACTIVE_DUMP = Dump a Block in Hex 14-Sep-1984 19:98:03 ANALYZ SRCIRMSINTER.B33; 1 
bibsdév_size) = 1; 
b{bsd$l-vbn] = .vbn; 
anl$bucket(b,0); 
. We can format the block in hex, and then free it up. We'll include a nice 
! heading also. 
anl$format_Line(3,0,anlrms$_dumpheading,.vbn); 
begin 
local . 
block_dsc: descriptor; 
build_descriptor(block_dsc,512,.b{bsd$l_bufptrJ); 
anl$format_hex(1,block_dsc); 
2 end; 
; an l$bucket(b,-1); 
2 return; 
2 
1 end; 
003C 00000 «ENTRY ANLSINTERACTIVE_DUMP, Save R2,R3,R4,R5 
5E 24 C2 00002 SUBL2 #36, SP 
5E 0D 00005 PUSHL 
04 AC DD 00007 PUSHL ARGUMENT 
0000G CF 02 Fe OOO0A CALLS #2, ANLSINTERNALIZE_NUMBER 
OE 50 £8 OOO0F BLBS STATUS, 1$ 
00000000G 8F DD 00012 PUSHL #ANLRMS$_BADVBN 
000000006 00 01 FB 00018 CALLS #1, LIBSSIGNAL 
04 OO01F RET 
51 6— 00 es 1$: MOVL VBN, R1 
03 12 00023 BNEQ 2s 
51 01 00 CF MOVL #1, R1 
50 0000G CF 00 00028 2$: MOVL ANLS$GL_FAT, RO 
FOO BF 60 9 Benge BITB (RO), #240 
06 12 00031 BNEQ 
50 08 Ad 00 O00 33 MOVL 8(RO), RO 
04 11 ate BRB 4$ 
50 04 AO DO 00039 3$ MOVL 4(RO), RO 
50 51 D1 00030 4$ cMPL =sR1, -RO 
3 1B 00040 BLEQU 5$ 
51 0 00 494 OVL RO, R1 
6€ 1 3 00045 5$: MOVL R1, VBN 
00 6E 00 2c 993 MOVCS #0, (SP), #0, #24, B 
OC AE 0040 
OE AE 01 BO 0004F MOVW #1, B+2 
10 AE 6— D0 eth MOVL VBN, B+4 
7E p4 005 CLRL —_ =( SP) 
10 AE 9F 00059 PUSHAB B 
0000G CF 02 FB 0005C CALLS #2, ANLSBUCKET 
6€ DD 00061 PUSHL VBN 
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0000G CF 6 
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; Routine Size: 146 bytes, Routine Base: S$CODE$S + OA7E 


come Bliss-32 V4.0-7 
ANALYZ. SRCIRMSINTER. 835; 


‘poms puree 
Ag ANLSFORMAT LINE 
#512, 6 K_pst 
BLOCK “DSC+4 
Bt otk K_DSC 
#2, ANLSFORMAT_HEX 
#1, =(SP) 


#2, ANLSBUCKET 
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1955 
1956 


1959 


1963 


co 


50 4C 468 53 4D 52 4C 4E 41 0024¢ P.ABX: “ASCII \ANLRMSHLP\ : 
00000009 00258 P.aBW: [LONG 9 : 
00000000" 0025¢ “ADDRESS P.ABX : 


-PSECT S$CODES,NOWRT,2 


0000 00000 -ENTRY A S INTERACT INE HELP, Save nothing : 1987 
000000006 00 9F 00002 PUSHAB LIBSGET _INPU : 1998 


J 16 

| RMSINTER RMSINTER = Interactive Analysis Mode 16-Sep-1984 00: +06: 739 AX-11 Bliss-32 V4.0-7 Page 60 
, V04-000 ANLSINTERACTIVE_HELP = Handle the HELP Command 14-Sep-1984 11:55:01 ANALYZCS Rea RMSINTER.B3 31 (14) 
3 1469 1964 1 %sbttl ‘ANLSINTERACTIVE_HELP = Handle the HELP Command‘ 
(3 1470 1965 1 !e¢ 

3 1471 1966 1! Functional Description: 

ls Vag 1967 1! This routine is responsible for handling the interactive HELP command. 
3 147 1968 1 | ALL the work is done by LBRSOUTPUT_HELP. 

E 1474 1969 1! 

3 1475 1970 1! Formal Parameters: 

s On 130) : arguments A descriptor of the help keywords as entered by user. 
3: 1478 1998 1 i Implicit Inputs: 

; 1479 1974 1 global data 

; 1480 1975 1! 

3 1481 1976 1! Implicit Outputs: 

3; 1482 1977 1: global data 

: 1483 1978 1: 

> 1484 1979 1 | Returned value: 

3; 1485 1980 1! none 

: 1486 1981 1! 

3; 1487 1386 1 ! Side Effects: 

3: 1488 1983 1! 

> 1489 13Re 1 i- 

3 1490 1985 1 

3 1491 1986 1 ; ; 

> 1492 1987 2 global routine anl$interactive_help(arguments): novalue = begin 

3 1493 be. a oe 

> 1494 1989 2 bind 

3; 1495 1990 2 arguments_dsc = .arguments: descriptor; 

3 1496 1991 2 

3 1497 1992 2 local 

3 1498 1993 2 status: long; 

3 1499 1994 2 

3; 1500 1995 2 ; F 

5 1203 bo § ! Simply call the wonderful Librarian to do the work. 

3; 1503 1998 2 status = lbr$output ~help( tibsput . output, 0. arguments_dsc,describe("ANLRMSHLP'), 
3: 1504 1999 2 $gét_input); 

3; 1505 2000 2 check (.status, .status); 

; 1506 2001 2 

3: 1507 2002 2 return; 

3; 1508 2003 2 

3 1509 2004 1 end; 

-PSECT SPLITS,NOWRT,NOEXE,2 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:RMSINTER/OBJ=OBJ$:RMSINTER MSRCS$:RMSINTER/UPDATE=(ENHS: RMS INTER) 


3 1512 2007 0 
3: Size: 2877 code + 3574 data bytes 
; Run Time: 01:08.1 


K 1 
~RMSINTER RMSINTER = Inte t sve pee mag Mode 16-Sep-1 
v04-000 ANLSINTERACTIVE - Handle the HELP Command 14-Sep-1 
7E D4 00008 
0000" CF 9F QOODA 
04 AC DD QOODE 
7E pe 0011 
00000000G 00 9F 00013 
000000006 00 98 FB 00019 
09 0 £8 000 9 
50 DD 000 
000000006 00 01 FB 00025 
04 0002C 1$: 
; Routine Size: 45 bytes, Routine Base: S$CODE$ + 0B10 
3: 1510 2005 1 
3 1511 2006 0 end eludom 
° PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS 2744 NOVEC, WRT, RD ,NOEXE,NOSHR, 
; SPLITS 6 NOVEC,NOWRT, RD ,NOEXE,NOSHR, 
; SCODES 2877 NOVEC,NOWRT, RD, EXE,NOSHR, 
> LIBSKEYOS 20 NOVEC,NOWRT, RD, EXE, SHR, 
; _LIBSSTATES 152 NOVEC,NOWRT, RD, EXE, SHR, 
>; LIBSKEY1$ 50 NOVEC,NOWRT, RD, EXE, SHR, 
: Library Statistics 
: eso a ead Symbols oe aw om 
3 File Total Loaded Percent 
> _$255$DUA28:(SYSLIBILIB.L32;1 18619 60 0 
: ~$255$DUA28:(SYSLIBITPAMAC.L32;1 42 25 59 


4 90:9 :39 AX-11 Bliss- 
4 11:55:01 ANALYZ.SRCIR 
CLRL -(SP) 
PUSHAB P.ABW 
PUSHL ARGUMENTS 
CLRL (SP) 
PUSHAB * seat 2 OUTP 
CALLS 6, CaRSOUTPUT HELP 
BLBS STATU S, 1$ 
PUSHL statu $ 
CALLS #1, LIBSSIGNAL 
RET 
-EXTRN LIBSSIGNAL 
LCL, REL, CON,NOPIC,ALIGN 
LCL, REL, CON,NOPIC,ALIGN 
LCL, REL, CON,NOPIC,ALIGN 
LCL, REL, CON, PIC,ALIGN 
LCL, REL, CON, PIC,ALIGN 
LCL, - CON, PIC,ALIGN 
Pages Processing 
Mapped Time 
1000 00:01.8 
14 00:00.1 


32 V 
MS 


INT 
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16 
RMSINTER Ons ite M4 inte era ive gnolysis Mode 1b-Sep-1984 00:06:39 VAX-11 Bliss-32 V4.0-742 Page 62 
YO -00 ANLSIN ERAC EH Handle the HELP Command 

; Elapsed Time: ef 00.3 
: Lines/CPU Min: 17 
: eye ae 32462 

ie penety Used: 500 pages 
it Compilation Complete 
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